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APPENDIX . iy 

PROGRAM INPUT DESCRIPTION 


DATA CARDS 


Card Set 


Input 


Format 


1 . 

2 . 

3. 

4. 

5. 

6 . 


7. 


Case Title 


8A10 

XXFIND, 

XPHIL, T0LL1 

, TOLL2, XSOLVE, XGEM 

7F10.0 

XFIND(l), XFIND(2) 

XFIND(NXFIND) 

7F10.0 

RNB , TRIPUP, OPTION, 

SANGLE, TRMAX, REFC, UIN 

7F10.0 

XPRINT , 

XSKIP, REFX, 

REFZ , CREF, PRINT, CASE 

7F10.0 

NCMPT , 

NSLAT, NFLAP , 

NPU(l), NPL (1) ,NPU(NCMPT) , 


NPL (NCMPT) 


1415 

XU(1) 

, XU(2) - 

- - XU(NPU(1)) 


ZU(l) 

, ZU(2) - 

- - ZU(NPU(1)) 


XL(1) 

, XL (2) - 

- - XL(NPL(1)) 


ZL(l) 

i 

i 

, ZL(2) - 

» 

¥ 

- - ZL(NPL(1)) 

¥ 

¥ 

7F10.0 



XU(1) , 

XU(2) - 

- - XU(NPU(NCMPT) ) 



ZU(1) , 

ZU(2) - 

- - ZU(NPU(NCMPT) ) 



XL(1) , 

XL(2) - 

- - XL (NPL (NCMPT)) 



ZL(1) , 

ZL(2) - 

- - ZL (NPL (NCMPT)) 

7F10.0 

8. 

XPW(l) , 

ZPW(l) - 

- - XPW(NCMPT-l) , 

ZPW (NCMPT-1) 

9. 

XPC(l) , 

ZPC(l) - 

- - XPC( NCMPT- 1) , 

ZPC(NCMPT-l) 

10. 

DELF(l) 

> " " 

DELF(NCMPT-l) 

7F10.0 

11. 

SIGMA 



7F10.0 

12. 

MACH, ALPHA 


7F10.0 

13. 

DX, DXMAX 

, Z, TRIP 


7F10.0 

14. 

- 1 . 



7F10.0 

15. 

6/7/8/9 





7F10.0 

7F10.0 


The input to Program VIP is described in the following section. 

CARD 1: 

Title card, all 80 characters may be used. 

CARD 2: 

Field 1-10: XXFIND, Number of print locations on flap upper surface. 

If XXFIND = 0. CARD 3 is not required. 

Field 11-20: XPHIL, Iteration number on which flap boundary layer 

velocity distributions are printed. 
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Field 21 — 30; TOLL1, Convergence criterion tolerance on Lift coefficient, 
,005 < TOLL1 < ,015 , 

Field 31-40 : T0LL2 , Convergence criterion tolerance for iterative matrix 

inversion method, T0LL2 = ,01, 

Field 41-50: XSOLVE, Specifies matrix solution technique, XSOLVE =0,, 

direct; XSOLVE - 1., iterative. 

Field 51-60: XGEM, Geometry printout option, if XGEM =0., a complete 

calculation is performed; if XGEM - 1., only the lofted geometry is printed 
and the calculation is terminated. 

CARD 3: 

XFIND(l) , XFIND(2) etc, X coordinates of print stations for flap velocity 
distributions, input in flap coordinates. This card not required if XXFIND - 
0 . 


CARD 4: 

Field 1-10: RNB, Reynolds number based on Reference Chord and Free 

stream velocity U C/v x (10 ) . 

CO 

Field 11-20: TRIPUP, Trip location (x/c). Currently if tripping is 

desired, each surface of each element will be tripped at the same location. 
If tripping is not desired TRIPUP = 1. 

Field 21 - 30: OPTION, Trip option, OPTION - 1. , This deters the user 
from specifying a trip location where the boundary layer could not (because 
of the Reynolds number) become turbulent. If too early a trip location is 
specified, the location is repositioned to correspond to the point where R Q 
exceeds 200. 

Field 31 - 40: SANGLE, Sweep angle in degrees. 

Field 41 - 50: TRMAX, Maximum number of iterations between potential 

flow and boundary layer modules. The convergence criterion in the program 
will reset this parameter to a smaller number if for the particular angle of 
attack convergence is achieved. 

Field 51 - 60: REFC , Reference chord in inches. This is required for 

determination of surface arc distances in INSPAN. 

Field 61 - 70: UIN, Free stream velocity in feet per second. This is 

required in INSPAN. 
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CARD 5; 


Field 1-10: XPRINT, Print option for swept case, prints cross-flow 

integral thicknesses from IBL. 

XPRINT = 0. printing suppressed 

XPRINT = 1. extra printing 

Field 11 - 20: XSKIP, Print option for IBL, XSKIP = 1., every integration 

step is printed; XSKIP = 5. (usual value) every fifth step is printed. 

Field 21 - 30: REFX, Reference (x/c) location for calculation of moment 

coefficient . 

Field 31 - 40: REFZ, Reference (z/c) location for calculation of moment 

coefficient. 

Field 41 - 50: CREF, Reference chord for aerodynamic force calculations. 

If geometry input in percent then CREF - 100. Normally CREF = 1. 

Field 51 - 60: PRINT, Optional diagnostic printing for potential flow 

routines 

PRINT = 0. printing suppressed, 

PRINT = 1. extra printing. 

Field 61 - 70: CASE, specifies number of angle of attack or Mach number 

variations for a given geometry. Number of CARD Sets 12 and 13 must be 
repeated to coincide with the value of CASE., If NFLAP = 0, then CARDSets H. 
and 13 are not required. 

CARD 6 

Field 1-5: NCMPT, number of components in configuration (i.e., slat, 

main element, double slotted flap, NCMPT =4). If NCMPT = 1, Card sets 8, 

9, 10, 11, and 13 are not required. 

Field 6-10: NSLAT, number of slats in configuration. 

Field 11-15: NFLAP, number of slotted flaps, currently the maximum 
allowed is 2 . If NFLAP = 0, then Card sets 11 and 13 are not required. 

Field 16-20: NPU(l) , number of x,z coordinates describing the upper 

surface of component one. (Limit = 30) 

Field 21-25: NPL(l) , number of x,z coordinates describing the lower 

surface of component one. (Limit = 30) 

Note: If more than one element is being considered, then the parameters 

NPU, and NPL are specified for each element in turn in the remaining fields 
26-70. 
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CARD SET 7: 


- XU(1), XU(2) - - - etc., coordinates x/c of upper surface of element 
number one (NPU(l) points) 

- ZU(1), ZU(2) - - - etc., coordinates z/c of upper surface of element 
number one (NPU(l) points) 


- XL (1) , XL (2) 

number one (NPL(l) 


etc., coordinates x/c of lower surface of element 
points) 


- ZL (1) , ZL (2) 

number one (NPL(l) 


etc., coordinates z/c of lower surface of element 
points) . 


NOTE; This card set is repeated to correspond to the input of elements 
two, three and four if present. 


CARD 8: 

XPW(l) , ZPW(l) etc., X and Z coordinates of flap or slat pivot points 
in wing coordinates. Points listed in order, i.e., slat first. If NCMPT - 
1, this card is not required. 

CARD 9; 

XPC(l) , ZPC(l), etc., X and Z coordinates of flap or slat pivot points 
in component coordinates. If NCMPT « 1, this card is not required. 

CARD 10: 

DELF(l) , etc., flap or slat rotation angles in degrees; clockwise 
positive. If NCMPT = 1, this card is not required. 

CARD 11: 

SIGMA, tension factor in splines under tension routines. Suggest 
SIGMA = —10 . If NFLAP = 0, this card is not required. 

CARD 12: 

Field 1-10: MACH, free stream Mach number. 

Field 11 - 20: ALPHA, angle-of-attack in degrees. If CASE > 1. then 

CARD 12 must be repeated the number of times specified by CASE. 

CARD 13: 

Field 1-10: DX, initial Ax step size for" solution of partial 

differential equation in INSPAN . Suggest Ax = .00015625. 
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Field 11 - 2Q ; . DXMAX, maximum Ax step size allowed in INSPAN, Suggest 
DXMAX £ ,G3, 

Field 21-30: Z, Print parameter for velocity profile output In INSPAN, 

25 Z 1000, printout of first and last calculated profiles is a default 
option regardless of value of Z. If print option XPHIL is employed then Z 
should be set at 1500 to avoid excess printout. 

Field 31 - 40: TRIP, trip location on flap upper surface (input option) 

TRIP specified in flap coordinates x/c. 

NOTE: If NFLAP = 2, then CARD 13 must be repeated a second time to 

account for the second flap, 

CARD 14: 

Field 1-10: -1. Indicates end of data, program exits, 

CARD 15: 

677/8/9 card END-0F-J0B, 
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APPENDIX V 


PROGRAM output description 

A sample program output for an infinite swept wing calculation of a wing- 
slotted flap configuration is shown in the following pages. Briefly the output' 
consists of the fo3.1owing in the order of its appearance; 

-The configuration title followed by a summary table of the input and 
lofted geometry. If NFLAP > 0 the longitudinal radius of curvature 
for each flap upper surface is tablulated (11/0), This is followed by a 
summary of input conditions (Mach No., Angle of Attack, Sweep Angle, 
Iteration No .) , 

-The input airfoil geometry, calculated pressure coefficients and source 
strengths are tabulated for each surface of each component of the config- 
uration, 

-The incompressible boundary layer calculations for a particular surface 
are printed out, preceded by a summary giving the Reynolds No., Sweep 
Angle, Iteration No,, and Surface. The printout includes the x/c 
coordinates, and arc length s/c which for a swept case is the streamwise 
distance measured from the stagnation point. The velocity U^/U^ corre- 
sponds to the calculated s/c, as does the shape factor H, the boundary 
layer thickness 5, the momentum thickness 0, the angle 3, the momentum 
thickness Reynolds No. R , and the skin friction coefficient C f in the 
resultant surface flow direction. 

-If the turbulent boundary layer printout is preceeded by a laminar 
boundary layer summary table, the table includes all of the parameters 
in the turbulent printout with the exception of the parameters 6, 3> and 
R , and includes the additional parameter du/ds, the pressure gradient. 

-If optional printing of the integral cross-flow thicknesses is requested, 
the printout includes x/c, s/c, du/ds, the angle a, (the angle between 
the normal chord and the projection of the external streamline on the 
surface) the integral thicknesses 6-2, ^21 an< ^ ^22* anc ^ s ^ ream_ 

wise skin friction coefficient C^. 

-A summary table is printed at the end of each boundary layer printout, 
and includes the lift coefficient of the overall configuration, the skin 
friction drag, pressure drag and total profile drag of the particular 
surface, and the moment coefficient of the configuration. The boundary 
layer printout is repeated for successive surfaces. 

-If NFLAP > 0, that portion of the integral boundary layer development 
in the slot region on the flap upper surface is also printed with the 
same format as for other component surfaces. 
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-The slot exit point, flap upper surface transition point and the flap 
boundary layer thickness s/c at the slot exit are displayed, The non- 
dimensional streamwise. velocity profile U /U^ is also displayed for 
reference, 

-The boundary layer development over the flap upper surface from the slot 
exit rearward is printed out at specified stations. The initial input 
to Program INSPAN is displayed as profile number one. The printout 
includes a summary list giving the current values of the arc length 
(x) measured from the stagnation point, as well as current values of 
the following parameters: 


x step size Ax (DX) 
boundary layer thickness 5 (DELTA) 
displacement thickness d* (DELS) 
momentum thickness 8 (THETA) 
shape factor H 
velocity defect (UD) 

local free stream velocity U 
friction velocity U T (UTAU) 

skin friction coefficient C /2 by three different calculations 
(CF2 (1) , CF2 (2) , CF2 (3) ) ... 

iteration number for implicit solution of finite difference 
equations (ITR) 
profile number (PRF . NO.) 
longitudinal radius of curvature (R(3)) 

The tabulated parameters spanwise velocity W/W , chordwise velocity U/U^, linear 
ized velocity UP, velocity gradient DU/DY, normal velocity V, eddy viscosity, 
EDDY, pressure gradient, P-GRAD and inviscid velocity, U-INVISCID are printed 
out as functions of the distance normal to the surface y/c. For swept wing 
cases a second tabulation is also presented. This table includes the resul- 
tant velocity UR, the angle BETA, the streamwise velocity US and the cross- 
flow velocity WC. 

Other parameters also displayed include the surface value of angle 8 
(CBETA) , the skin friction components CFR in the resultant surface flow 
direction, CFS in the streamwise direction and CFC in the cross flow 
direction. Also printed out are the streamwise values of the shape factor 
H, the displacement thickness <$* and the momentum thickness 8. 

NOTE: The values of H, 6* and 0 displayed as part of the main summary 

table preceding the velocity profile printout are for the inner part of 
the velocity prof ile ,to U . These values are used in the calculation 
of the eddy viscosity pro¥i$e. 
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Finally, for the last profile on the flap surface the values of H, 6* and 
0 are given as are values of the lift and drag coefficients. 

The printing procedure is repeated for each iteration with the exception 
that the integral boundary layer tables are deleted until the final itera- 
tion. At the end of the calculation a brief table summarizes the lift 
drag and moment coefficients as functions of the interation number. 
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REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


RAE22lS(F0STFR> DROOPED LEADING EDGE. 30 DEG FLAP 

AIRF-OIL GEOMETRY 
COMPONENT * 1 


X-IN • 

input 

UPPER SURFACE COORDINATES 
2-IN 

X-OUT * ' 

lofted 

Z-OUT 

.00599 


-.02224 

-.00599 

-.02224 

.00398 


-.01756 

-.00398 

-.01758 

.00157 


-.01385 

-.00157 

-.01385 

.00216 


-.00959 

.00216 

-.00959 

.00599 


-.00608 

.00599 

-.00608 

.00972 


-.00107 

.00972 

-.00307 

.01883 


.003 0'7 

.01883 

.00307 

.02793 


.00881 

.02793 

.00881 

.03716 


.01385 

.03716 

.01385 

.05535 


.02319 

. 0S585 

.02319 

'.07469 1 


.03175 

.07469 

.03175 

.09357 


.03933 

.09357 

.03933 

.11270 


.04635 

.11270 

.04635 

.12 120 


.04911 

.12120 

.04911 

.12964 


.05000 

.12984 

.05000 

.15016 


.05483 

.15018 

.05483 

.17023 


.05775 

.17023 

.05775 

.21027 


.06261 

,21027 

.06261 

.25023 


.06647 

.25023 

.06647 

.32960 


.07113 

.32980 

.07113 

.37006 


.07203 

. 37006 

.07203 


.44982 .07128 


44962 


07128 



.<♦6983 


.06958 

.48983 

,06958 

,569?<* 


.06439 

.56924 

.06439 

.62706 


.05922 

.62706 

.05922 

.74952 


.04439 

.74952 

.04439 

.78939 


.03857 

.78939 

,03857 

.82473 


.03325 

.82473 

.03325 

.85820 


.02783 

.85820 

.02783 

.87004 

INPUT 

.02582 

LOWER SURFACE COORDINATES 

.87004 

.02582 

LOFTED 

X- IN 


Z- IN 

X-OUT 

Z-OUT 

.00599 


-.02224 

-.00599 

-.02224 

.00422 


-.03142 

-.0042? 

-.03142 

,00038 


-.03483 

-.00038 

-.03483 

.00412 


-.03722 

.00412 

-.03722 

.00886 


-.03901 

.00886 

-.03901 

.01340 


-.04019 

.01340 

-.04019 

.01842 ' 


-.04129 

.01842 

-.04129 

.02708 


-.04278 

.02708 

-.04278 

.03746 


-.04418 

.03746 

-.04418 

.04809 


04S32 

.04809 

-.04532 

.08880 


-.04789 

.08880 

-.04789 

.12982 


-.04882 

.12982 

-.04882 

.16995 


-.05201 

.16995 

-.05201 

.21000 


-.05742 

.21000 

-.05742 

.24986 


-.06182 

.24986 

-.06182 

.28986 


-.06486 

.28986 

-.06486 

.36992 


-.06774 

.36992 

-.06774 

.40998 


-.06756 

.40998 

-.06756 



.49016 

-.06251 

.49016 

-.06251 

•S3029 

-.05835 

.53029 

-.05835 

.59296 

-.05028 

.59296 

-.05028 

.60978 

-.02750 

.60978 

-.02750 

.62852 

-.01071 

.62852 

-.01071 

.65868 

-.00478 

.65868 

.00478 

.69150 

.01482 

•69150 

.01482 

.72402 

.02117 

.72402 

.02117 

.79118 

.02597 

.79118 

.02597 

.82601 

.02561 

.82601 

.02561 

.05978 

.02388 

.85978 

.02388 

.87004 

.02304 

COMPONENT = 2 

UPPER SURFACE COORDINATES 

INPUT 

.87004. ■ 

.02304 

LOFTED 

X-IN 

2-IN 

X-OUT 

Z-O'JT 

0.00000 

1 

-.04147 

.82704 

-.01 167 

.00265 

-.03517 

.83248 

-.00754 

.01020 

-.02561 

.84380 

-.00303 

.01794 

-.01747 

.85458 

.00014 

.02780 

-.00922 

.06724 

.00236 

.03764 

-.00275 

.87900 

.00304 

.04843 

. 0 0258 

.09101 

.00226 

.05935 

.00661 

.90248 

.00029 

.07115 

.00958 

.91418 

-.00303 

.00393 

.01197 

.92645 

-.00735 

.09492 

.01392 

.93694 

-.01 116 
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.13926 


.02006 

.97841 

-.02801 

.17027 


.02264 

1 .00655 

-.04128 

.20413 


.02381 

1.03646 

-.05720 

.24172 


.02303 

1.06863 

-.07667 

.28080 


.02039 

1 . 1 0 11 S 

-.09850 

.31579 


.01644 

1.1294ft 

-.11941 

.35536 


. .00986 

1.16046 

-.14490 

.37640 


.00553 

1.17651 

-.15917 

.39053 • 


.00242 

1.18719 

-. 16893 

.40000 


0.00000 

1.19419 

-.17576 



LOWER SURFACE COORDINATES 




INPUT 



LOFTED 

X-IN 


2-IN 

X-OUT 

Z-OUT 

0. 00000 


-.04147 

.82704 

-.01167 

.00954 • 


-.04778 

.83215 

4.02190 

.03199 


-.04447 

.85324 

-.03026 

-0S701 


-.04094 

.87668 

-.03972 

.08426 i 


-.03606 

.90232 

-.04981 

.11373 


-.03261 

.92996 

-.06086 

.14616 


-.02803 

.96034 

-.0731 1 

.19625 


-.02161 

1 .00693 

-.09260 

.24192 


-.01528 

1.04964 

-.10995 

.29008 


-.00967 

1.09416 

-.129J7 

.33604 


-.00494 

1.13632 

-.14805 

.36932 


-.0021 1 

1 .166S6 

-.16224 

.38828 


-.00010 

1.18399 

-.16998 

.40000 


0.00000 

1.19419 

-.17576 
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PAD 1 US 

or curvature on flap 

UPPER SURFACE 





....... _ 

. 

_ 



REPRODUCIBILITY OF THE 

X-000PD 

2-COnPD 

RADIUS 



ORIGINAL PAGE IS POOR 

.82704 

-.01167 

-5.5420F-O2 




.83248 

-.00754 

-6 - 1507F-O2 




.84 380 

- .00303 

-P.44H6E-02 




.85458 

.000)4 

-1 .21428-01 




.86724 

.00236 

-1 -03I6E-01 




.07900 

.00304 

-1 .0120E-01 




..89101 ■ 

.00226 

-1.0663E-01 




.90248 

.00029 

-1.1916E-01 




.91418 

-.00303 

-2.091RE-01 




.92645 

-.00735 

-5.6636E-01 




.93694 

-.01116 

-7.6421E-01 




.95469 

-.01814 

-7.9884E-0I 




.97841 

-.02801 

-7.1299E-01 




1 .00655 

-.04128 

-6.4833E-01 




1.03646 

- . 0S720 

-6.8934E-0! 

, 



1.06863 
\ . 

-.07667 

- 7 • 960 1 E -0 1 




1.10115' 

-.09850 

-7 .83S5E-01 




l .12948 

-.11941 

-7.8651E-01 




l .16046 

-.14490 

-8.7719E-01 




1.17651 

-.15917 

-7.4471E-01 




1.18719 

-.16893 

-4 .2277E-0 1 




1.19419 

-.17576 

-2.6066E-O1 
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AIRFOIL GEOMETRY AND SURFACE PRESSURE DISTRIBUTIONS 


MACH NO. a illSOO ANCLE OF ATTACK » 5.60000 SWEEP ANGLE * 25.00000 

COMPONENT a i SURFACE s I 


X INPUT 

Z INPUT 

PRESSURE COEFFICIENT 

SOURCE STRENGTH 

.04809 

r. 04532 

.99370 

-.00488 

.03746 

-.04413 

.97367 

.00230 

.02708 

-.04278 

.89911 

.00098 

.0134? 

-.04129 

.75129 

-.00011 

.01340 

-.04019 

.51711 

-.00008 

.00886 

-.03901 

.11020 

.00035 

.0041? 

-.03722 

-.72030 

.00109 

-.00033 

-.03483 

-2.71232 

,00227 

-.0042? 

-.03142 

-6.08003 

.00406 

-.00599 

-.02224 

-9.37957 

.00844 

-.00393 

-.01758 

-9.95160 

.00833 

-.00157 

-.01385 

-8.60012 

-.00110 

.00214 

-.00959 

-7.S541 1 

.00632 

.00599 

-.00608 

-6.76042 

.01672 

.0097? 

-.00307 

-5.92565 

.01563 

.01881 

♦00307 

-5.08371 

.01230 

.02791 

. 0 08B 1 

-4.60257 

.01121 

.03714 

.01385 

-4.19511 

.00933 

.05585 

.02319 

-3.84815 

.00642 

.07469 

.03175 

-3.70902 

.00451 

.09357 

.03933 

-3.69973 

.00082 

.11270 

,04635 

-4.03375 

.00254 

.12120 

.04911 

. -4.03835 

.01595 

.12984 

.05000 

-3.47788 

.01999 

.15013 

♦05483 

-3.22685 

.00991 

.17023 

♦05775 

-2.99701 

.00986 

.21027 

.06261 

-2.63236 

.00934 

.25021 j 

• 06 647 

-2.37362 

.00669 

.32980 

.07113 

-2.17225 

.00632 

.37004 

.07203 

-2.01647 

.00615 

.44982 

.07123 

-1.87618 

.00633 

.48981 

• 069S8 

-1.75362 

.00647 

.56924 

.06439 

-1 .63571 

.00628 

.62704 

.05922 

-1,49956 

.00608 

.749S? 

.04439 

-1 .37795 

.00519 

.78939 

.03857 

-1.32358 

.00526 

.82473 

.03325 

-1.29157 

.004*9 

.85820 

.02783 

-1.26126 

.00460 

.87004 

♦02582 

-1.25053 

.00466 

COMPONENT a 1 

SURFACE * 2 




X INPUT 

Z INPUT 

PRESSURE COEFFICIENT 

SOURCE STRENGTH 

.04809 

-.04532 

.99370 

-.00638 

.08880 

-♦04789 

.96285 

.00116 

.1298? 

-.04882 

.91213 

.00057 

.16995 

-.05201 

.86065 

,00060 


ITERATION « 7 
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.21000 

.24986 

.28986 

.3609? 

.4099R 

.49016 

.53020 

,59296 

.6097R 

.6285? 

-.05742 

-.06182 

-.06486 

-.06774 

-.06756 

-.06251 

-.05835 

-.05028 

-.02750 

-.01071 

.80029 
.74040 
.68241 
.62198 
.57955 
.56136 
-.50366 
.53553 
• 73S89 
.85026 

-.00017 

.00076 

.00230 

-.00034 

.00355 

-.0032S 

.01317 

.00742 

.02083 

.03274 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 

.65868 

.00478 

,85761 

.03274 


.69150 

.01482 

.84138 

.03274 


.72402 

.0? 1 1 7 

.80553 

.02669 


.79118 

.02597 

.66928 

.0)441 


.82601 

.02561 

.21879 

,00005 


.85978 

.02388 

-.55664 

.00108 


.87004 

.JO? 3 04 

-.79224 

ooooo 


COMPONENT = 2 

SURFACE = 3 




X input 

2 input 

PRESSURE COEFFICIENT 

SOURCE STRENGTH 


.85324 

-.03026 

.93457 

.00053 


.83215 

-.02190 

.92298 

-.01528 


.82704 

-.01 167 

.40195 

-.00131 


.83248 

-.00754 

-. 1 7074 

.00395 


...84380 

-.00303 

- .41 703 

.00366 


.85459 

.00014 

-.87932 

.00255 


.86724 

.00236 

-1.46592 

.00297 


.87900 

.00304 

-1 .90420 

.00753 


.89101 

.00226 

-2.28443 

.01220 


.90244 

.00029 

-2.31430 

.01671 


.91418 

-.00303 

-2.09169 

.02142 


.92645 

-.00735 

-1.82404 

.02646 


.93694 

-.01116 

-1.64000 

.03079 


, .95469 

-.01814 

-1.48347 

.03610 


.97841 

-.02001 

-1.33169 

.04814 


1.00655 

-.04128 

-3 .16406 

.06020 

V 

1 .03646 

-.05720 

-.96155 

i 0 7 .33 3 


1 .06863 

-.07667 

-.73663 

.08790 


1.10115 

-.09850 

- .52016 

.10308 


1.12949 

-.11941 

-.30370 

.11673 


1.16046 

-.14490 

-.09006 

. 1 3228 


1.17651 

-.15917 

.0724 2 

.14060 

* 

1.18719 

-.16893 

.21615 

. 14621 


1.19419 

-.17576 

.31021 

.15000 


COMPONENT a 2 

SURFACE s 4 




X INPUT 

Z INPUT 

PRESSURE COEFFICIENT 

SOURCE STRENGTH 


.85324 

-.03026 

.93457 

-.02012 


.87668 

-.03972 

.84384 

.00254 


.9023? 

-.0*981 

.80092 

.00156 


.92996 

-.06086 

.76470 

.00096 


.96034 

-.07311 

.72408 

.00202 


1.00693 

-.09260 

.67814 

.00083 


1.04964 

-.10995 

.63542 

.00073 
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1.09414 

-.12917 

.59001 

- .00047 

1 .1363? 

-.16805 

.53693 

.00054 

1.16656 

-.16226 

.69758 

.00255 

1.18399 

-.16998 

.4P060 

.00081 

1 .19619 

-.17576 

.47067 

.00044 




component lift coefficient momentum coefficient 


1 2.52657 -.23536 

2 .60474 -.45314 





LAMINAR SEPARATION 

■ INCOMPRESSIBLE BOUNOARY LAYER CALCULATIONS 


*•*«** RAE2215(F0STER» DROOPED LEAOING EOGE-30 DEG FLAP 





RE 

SWEEP ANGLE ITERATION 

SURFACE 






3.800E*06 2.500E*0 1 ' 7 

1 




1 



laminar BOUNDARY LAYER DEVELOPMENT 



I 

X 

S 

US 

ou/ns h 

THETAS 

CFS 


1 

.0481 

0.0000 

4.3001 E-01 

6.6657E-01 ' 4.6440E»00 

1 .3245E-04 

0. 


6 

.0240 

.0586 

5.6949E-01 

9.3fl«OE*00 2. 1208E*OO 

6.8610E-05 

5.B119E-03 


11 

.0009 

.0864 

1 .8085E *00 

1 .1 698E *02 2. 2451 E*00 

1 *601 1F.-05 

6.6169E-03 


16 

-.0022 

.1109 

3 . 1 798E *00 

-3* 0232E*0 1 3. 2228E *00 

2.61 1 4E-05 

4.0213E-04 


17 

.0009 

.1158 

3.01 36E *00 

-3.0799£*0I 1.5416E*00 

3.3204E-05 

5.7090E-03 



LAMINAR separation 

REaTTaCHMENT 

AS TURBULENT BOUNDARY LAYER 








TURBULENT BOUNDARY LAYER 

development 



I 

* 

S 

US 

H DELTAS THETAS 

BETA 

RTHETAS 

CFS 

17 

.0009 

. 1 ISS 

3.014 

1 .S42E *00 2.401E-04 3.320E-05 

0 . 

3.802E*02 

5.709E-03 

22 

.0200 

.1404 

2.490 

1 .6D0E*00 9.226E-04 1 .337E-04 

2.654E*00 

1 .265E *03 

3. 108F.-03 

27 

.041) 

.1651 

2.302 

1 .566E*00 1 .562E-03 2.206E-04 

3 .087E *00 

1 .930E ♦ 0 3 

2.8 1 3F-0-3 

32 

.0629 

.1898 

2.230 

1 . 520E*00 2.096E-03 2.A39E-04 

2.710E*00 

2.406E*03 

2.8 1 2E-03 

37 

• 08S2 

.2145 

2.210 

1.478E*00 2. 54 OF- 03 3.288E-04 

2. 1 36E*00 

2.76IE*03 

2.877E-03 

42 

.1079 

.2392 

2.264 

1 *4180 00 2.BI0E-03 3.362E-04 

1 » t 09£*O0 

2 .893F *03 

3. 1-22F-03 
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<47 

.1313 

.2640 

2.154 

1 .468E*00 

3.428E-03 

4.3816-04 

1 . 94 7E ♦ 0 0 

3.585E*03 

2.7016-03 

52 

• 155 0 

.2887 

2.085 

1 .49 1 £ ♦ 09 

4.055E-03 

5 . D32E-04 

2.564E » 00 

4.2256*03 

2.4786-0 3 

57 

.1791 

.3135 

2.023 

1 .506E * 0 0 

4.6896-03 

6.260E-04 

9 . 05 8F * 00 

4.8 1 36*03 

2 . 3 3 4 6 - v 3 

62 

.203? 

.3384 

l .968 

1 .51 7£*00 

5.341E-03 

7.21 3E-04 

3. 520E *00 

5.3956*03 

2.2206-03 

67 

.2273 

.3633 

1.923 

1 .5226*00 

5.994E-03 

8.126E-04 

3.868E*00 

5.9 39E * 0 3 

2.1446-03 

72 

.2515 

.3882 

l .884 

1 .5256*00 

6.625E-03 

9.021E-04 

4. 153E*00 

6.4586*03 

2.0076-03 

n 

.2757 

.4131 

l .867 

1 .51 2£*00 

7,1416-03 

9.S92E-04 

4.030E*00 

6.0076*03 

?. 106E-C3 

£32 

.3000 

.4380 

1.651 

1 .S016«00 

7.6546-03 

1 .017E-03 

3.943E*00 

7.1536*03 

2.2 1 5r-n 3 

87 

.3292 

.4629 

1 ,834 

1 » 494E * 00 

8. 171E-03 

1 .077E-03 

3 .899E *00 

7.5086*03 

2.1 146-03 

^2 

.3985 

.4879 

1.611 

1 .995E*00 

8.7S9E-03 

1 .1566-03 

4.0455*00 

7.9536*03 

2.0806-03 

97 

. 3727 

.5129 

1 .786 

1 .4906*00 

9.367E-03 

1 .2406-03 

4 .225E *00 

8.4156*03 

2.0426-03 

1 C 2 

.3970 

.5379 

1 .774 

1 .4906*00 

9.873E-03 

1 .297E-03 

4. 160E*00 

8.7426*03 

2.0476-0 3 
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.4213 

.5629 

1 .762 

1 . 485E *00 

1 .0306-02 

1.3546-03 

4. 114E*00 

9.0696*03 

2.0406-07 

112 

,9456 

.5879 

1 .750 

1 .4006*00 

1 .0096-02 

1 .4145-03 

4.090E*00 

9,4036*03 

2.044P-03 

117 

.4693 

.6129 

1 . 730 

1 . 404F ♦ 0 0 

1 » l 50E-02 

1 .9006-03 

4 .270E*00 

9.8616*03 

2 . 0 0 0 c - 0 J 

122 

.494 1 

.6379 

1 .711 

1 .4896*00 

1 .213E-02 

1 .589E-03 

4,463E*00 

1.0336*04 

l .97?P-03 

127 

.5ie3 

’.6630 

1 .700 

1 .4856 »GO 

1.2656-02 

1 .6506-03 

4.449E*00 

1.0666*04 

1 .9706-03 

132 

.5425 

.688 1 

1 ,689 

1 .482F *00 

1 .31 86-02 

1 .7135-03 

4.446E.00 

T . 1 006*04 

1 .9656-0 3 

1 37 

.5667 

.7132 

1 .679 

1 . 4 7 9F * 00 

1 .3716-02 

1 .7786-03 

4.465E*00 

1 . 1 346*04 

J .9596-03 

1 *2 

.550 q 

.7382 

1 .66? 

1 . 48 3F * 0 0 

1 .433E-02 

1 .8676-03 

4.634E*00 

1 . 1796*04 

] .9296-03 

1 W 

.6151 

. 7634 

1 .645 

3 .488F *00 

1 .4996-02 

1 .9646-03 

4.841E*00 

1 .227F.04 

3 .895P-03 

1 52 

.6362 

.7885 

1 .633 

1 . 488F *00 

1 .5586-02 

2.042E-03 

4 .92 7E ♦ 0 0 

1.2676*04 

3 .8906-03 

1 S 7 

.6633 

.3136 

l .625 

1 .4846*00 

1 .609E-02 

2.099E-03 

4.99] E*00 

1 .2976*04 

1 . 9 8 7 F - a 3 

162 

.6374 

.8388 

1 .616 

1 .4816*00 

1 .6616-02 

2.158E-03 

4.8666*00 

1 .3276*04 

1 .8836-03 

167 

.7115 

.6639 

1 .611 

1 .478E*00 

1 .712E-0? 

2.218E-03 

4.8S1 E*00 

1.3576*04 

1 .9826-03 

172 

. 7354 

.8891 

1.603 

1 * 4 76F * 0 0 

l . 764E-0? 

2.279E-03 

4*84 4 E *00 

1.3806*04 

1 .0006-0 ) 

177 

.7597 

,9143 

1.595 

1.475E*00 

1 .81 9f.-02 

2 • 348E-Q3 

4.8806*00 

‘ I .423E*04 

1 .8726-03 

162 

.7837 

.9394 

1 .5B4 

1 .4766*00 

1 .878E-02 

2.428E-03 

4.970E*00 

1.4616*04 

1 .8576-03 

187 

.8077 

.9646 

1.577 

1 »475E*00 

I .933E-02 

2.494E-03 

4.9936*00 

1 .4946*04 

1 .8516-03 

192 

.8317 

.9898 

1 .570 

1 .'4 7 4 £ *00 

1 .986E-02 

2.558E-03 

5. OOOE*0O 

1 .526E*04 

1 .8486-03 

197 

.8SS7 

1 .0150 

1 .563 

1 .472E *00 

2 • Q39E-02 

2.623E-03 

5,014E*00 

• 1 • 557£* 04 

1.8436-03 

200 

.8700 

1 .0302 

1.559 

1 .4726*00 

2 « Q7J6-02 

2 • A62E-03 

. 5.0266*00 

1 ,5776*04 

1 .8406-03 


LIFT COEFFICIENT = 3.131304 


SKIN FRICTION DRAG = .001620 

PRESSURE DRAG = .020763 

PROFILE DRAG COEFFICIENT = .022383 

MOMENT COEFFICIENT a -.688498 


INCOMPRESSIBLE BOUNDARY LAYER CALCULATIONS v 

RAF2215 1 FOSTER) DROOPED LEADING EDGE-30 DEG FLAP 
RE SWEEP ANGLE ITERATION SURFACE 


3.8006*06 

2.5006*01 

7. - 2 


LAMINAR 

BOUNDARY LAYER DEVELOPMENT 


I 

X 

S 

US 

DU/RS 

H 

THETAS 

CFS 

I 

.0481 

0.0000 

4. 30016-01 

9.4699E-02 

3.47086*01 

1.32456-04 

0 . 

6 

.0694 

.0829 

4.44766-01 

2. 80436-01 

2.50206*00 

1 .41 6 IE -04 

2.15156-03 

11 

.0906 

.1393 

4 .66426-01 

4.74766-01 

2.35886*00 

1 .66466-04 

2.061 7E-03 

1 6 

.1119 

.1841 

4. 91626-01 

6.69916-01 

2.25196*00 

1 .7214E-04 

2. 1428E-03 

21 

.1332 

.2225 

5.19966-01 

6.74876-01 

?.?585E*00 

1.6968E-04 

2.04036-03 

26 

.1544 

.2573 

5.44666-01 

7.65156-01 

2.2209E*00 

1. 68936-04 

2.03736-03 

31 

.1756 

.2898 

5.70856-01 

8.27396-01 

2.32036*00 

1.6593E-04 

1 .8977E-03 
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36 

.1968 

.3205 

5.97626-01 

*♦1 

.2179 

.3499 

6.24136-01 

46 

.2391 

. 37B3 

6,49006-01 

5 1 

.2603 

.4059 

6 .72856-0 1 

56 

.2815 

.4330 

6. 95426-01 

61 

.3020 

.4596 

7. 1105E-01 

e>6 

.3241 

.4859 

7 . 2206E-01 

7 l 

.3454 

.5121 

7,33166-01 

7b 

.3666 

.5380 

7.44356-01 

el 

.3879 

.5638 

7.5850E-O1 

o6 

.4093 

.5893 

7.73476-01 

91 

.4305 

.6147 

7.76976-01 

*6 

,4516 

.6401 

7.80066-01 

101 

.4730 

.6654 

7.83156-01 

106 

.4943 

.6906 

7. 89316-01 

L 1 1 

.5155 

.7157 

8.0822E-01 

1 i* 

.5366 

. 7406 

B.1955E-01 

121 

, S5 7 9 

.7655 

8.12926-01 

124 

.5704 .7805 

NATURAL TRANSITION 

8.08956-01 


9. 14426-01 
8.48326-01 
9. OH 16-0 1 
8.17336-01 
0.511 3E-0 1 
4 .14396-01 
4.21226-01 
4.2780E-01 
4.4974E-01 
5.7«ft3E-01 
3.94386-01 
1 .21666-01 
1.22066-01 
1 .22466-01 
7.3867E-01 
7.6096E-01 
-2.87o3E*01 
-2.6544E-01 
-2.64476-01 


2.30536*00 
2.2?63E*00 
2.21336*00 
2 .25096 *00 
2.2396E*00 
2.40696*00 
2. 388SE *00 
2.37206*00 
2.34946*00 
2 * 28 1 3E *00 
2.37316*00 
2.53486*00 
2,52596*00 
2.51746*00 
2.23446*00 
2.24086*00 
2.89926*00 
2.9504E*00 
1 .48856*00 


1,62336-04 
l .59176-04 
1 .5732E-04 
1 .S6196-04 
1.SS7SE-04 
1 .S958E-04 
1 ,65406-04 
1.70456-04 
1 .74666-04 
1.76246-04 
1 .771DE-04 
1 .85366-04 
1 .93306-04 
2.00696-04 
2.05236-04 
2.00016-04 
2.05916-04 
2 . 19386-04 
2.27456-04 


1 .88B2F-03 
1 .8763E-03 
1.85056-03 
1 . 7282E-03 
1.69696-03 
1.33716-03 
1.29666-03 
1 .2* 266-03 
1 .2454E-03 
1 .31246-03 
1.15056-03 
9.07326-04 
8.7S14E-04 
8.47486-04 
1 .23456-03 
1 .2275E>03 
4.28456-04 
3.69196-04 
4.67446-03 


TURBULENT BOUNDARY LAYER DEVELOPMENT 


1 * 


124 

.5704 

1 29 

.5916 

134 

.6048 

136 

.6099 


5 US 

. 7 B05 .809 
.8055 .802 
.8314 .70S 
.8424 .665 


H 

1 .4886*00 
1 .4976*00 
l .7546*00 
?.067E*00 

3.131304 

.000931 

-.000533 

.000398 

-.688498 


TURBULENT SEPARATION 

lift coefficient 

SKIN FRICTION ORAG 
PRESSURE ORAG 
PROFILE ORAG COEFFICIENT 
MOMENT COEFFICIENT 


DELTAS 

U 736E-03 
2.245Ft03 
3.924E-03 
2.316E-03 


thetas 

2 .2746-04 
2.9706-04 
6.228E-04 
8 . 4 l 8E-Q4 


RETA 

0 . 

8.2696-01 
1, 6916*01 
4.2616*01 


RTH6TAS 

6.9926.02 
9.0556*02 
1 .6676*03 
-9.7fl3F.02 


CFS 

4.6746-03 
4. 1476-03 
2.3016-03 
9.3586-04 


INCOMPRESSIBLE boundary 


LAYER CALCULATIONS 






RA62215160ST6R1 

OROOPED LEADING EOGE-30 DEG FLAP 




RE 

SWEEP ANGLE 

ITERATION 

SURf ACE 





3 .8006*06 

2.5006*01 

7 

4 






lam in AR 

BOUNDARY LAYER DEVELOPMENT 


I 

X 

S 

US 1 

DU/C5 

H 

THETAS 

CFS 

1 

6 

n 

16 

21 

26 

31 

.8532 

.8619 

.8705 

.8792 

.8878 

.8965 

.9052 

0.0000 

.0166 

.0316 

.0454 

.0588 

.0719 

.0847 

4 . 94006-0 1 
5.2247E-01 
5.54246-01 
5.81996-01 
5.9399E-01 
6.06236-01 
6.17496-01 

l .49P5E *00 
1 .927 3E* 00 
2 . 3276E *00 
B.770SE-01 
9.1599E-01 
9.5339E-01 
6.9532E-01 

1 .02 14E *00 
2.4871€*00 
2 .3843E *00 
2.5039E*00 
2 .4632E *00 
2.4315E*00 
2.4592E*00 

1 .61786-04 
S. 72256-05 
7.1089E-05 
7.94336-05 
9.00966-05 
9.8052E-05 
1.047SE-04 

0. 

4. 60956-03 
3.95056-03 
2. 9247E-03 
2.64416-03 
2.47676-03 
2. 1 973E-03 
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3o 

.9138 

.0974 

6.2642E-01 

7.1262E-01 

2 .4 176E * 00 

1.1 127E-04 

4 1 

.9225 

.1099 

6.3S46E-01 

7.2939E-01 

2,4|80£*00 

1 . 1 668E -04 

4ft 

.9311 

. 1223 

6.4452E-01 

7.0766E-01 

2.4096E*00 

1 .21 26E-04 

51 

,9398 

.1346 

6 .5320E-01 

7.14?9E-01 

2 • 3942E ♦ 0 0 

1 .2535E-04 

5b 

.9484 

.1467 

6.6196E-01 

7.2778E-01 

2. 3782E *00 

1 .289 IE-04 

bl 

.9571 

.1568 

6.7080E-01 

7.4O06E-O1 

2.3636E‘00 

1 .3192E-04 

b b 

.9657 

.1707 

6.7794E-01 

5.0933E-01 

2.4281E*00 

1 . 3553E-04 

7 1 

.9743 

. 1826 

6.8402E-O1 

5. 1506E-01 

2.4167E*00 

1 . 3936E-04 

7 o 

.9029 

.1544 

6.9014E-01 

5.2066E-0 1 

2 . 4057E* 00 

1 .42805-04 

" x 

.9915 

.2062 

6.9629E-01 

5.2615F-01 

2 . 3947£ * 00 

1 .4591E-04 

8b 

1 .000 I 

.2178 

7.0247E-01 

5.3151E-01 

2. 3844 E *00 

1 .4872E-04 

9 1 

1.0037 

.2295 

7.0862E-01 

5.1 007E-01 

2.3859E*00 

1 .5131 E -04 

9 b 

1 .0173 

.24 11 

7 . U5SE-01 

5. 1472E-01 

2 . 37 66F *00 

1 .5380E-04 

1 0 1 

1 ,0259 

.2526 

7 .2051 E-0 1 

5. 19?8F-01 

2 . 3680E*00 

1 .5608E-04 

} Ob 

1 ,034b 

.2641 

7.2649F-01 

5.2374E-01 

2 . 3598E ♦ 00 

1.501 6E-04 

l 1 l 

1,0432 

.2755 

7.3250E-01 

5.281 IE-01 

2.3526E*00 

1 .6C05E-04 

1 1 9 

1.0518 

.2669 

7.3846E-01 

5 . 064 2E-0 1 

2.3S70E*00 

1 .61 83E-04 

1 21 

1 .0603 

.2982 

7 .4422E-01 
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DROOPED LEADING EDGF-30 DEG FLAP 

RE 

SWEEP ANGLE 

ITERATION 

SURFACE 

3 ,800E*06 

2 .sooe*j>i 

7 
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turbulent boundary layer development 
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OELTAS 
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RTMETAS CFS 


t 

.8532 
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6 

.8426 

.0218 

11 

.8320 
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16 
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.0573 

21 
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4.S68E-03 
3.826E-03 
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-4.6576 * 0 0 

9.3866*02 
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1 .508E*00 


3.197E-03 
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5.4486-04 
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100 1.0085 

• 2S76 
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5.95754066 

UTAU = 

I .2186*01 

CF2U1 = 

3.0936-03 

CF2(2)= 

3.1356-03 

CF2131* 

3.1376-03 

t TER * 

1 

PRF. NQ- 

1 

R<3> = 

6.7736*00 


0.00000 

.00000 

.00001 

.00001 

.00002 

.00003 

.00004 

.00005 


X = 5.95738441 

X = S. 95754066 

x 3 5.9S754066 

W 

U 

UP 

ou/or 

0 . 

0. 

0 . 

7. 9946 ♦ 

9.2536-02 

1 .076E-01 

2.0826*01 

6.661E* 

1.8516-01 

2.153E-01 

4.1636*01 

6.S266* 

2.738E-01 

3.1856-01 

6.1616*01 

5.845E* 

3.4746-01 

4.041E-01 

7.8166*01 

4 .8926 ♦ 
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9.626E-01 

.00299 
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-4.4866*04 
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26 
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27 
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29 

2.19566*02 
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31 
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32 
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33 
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34 
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2.04916*02 

35 
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36 
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37 
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33 
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1 .4471E*02 

-6.62246-03 

1 .447 16*02 

40 

1 .58326*02 

-6.62246-03 

1 .58326*02 

41 

1 .81986*02 

-6.6224E-03 

1.81986*02 

42 

1 .97306*02 

-6.62246-03 

1.97296*02 

43 

1 .99566*02 

-S.63S0E-03 

1.99566*02 

44 

2.00666*02 

2.9756E-02 

2.00576*02 

X 

C8ETA 

CF2<3> 

CFR 

5.9575 

-.3794 

3. 1 366E-03 

3.22406-03 

H 

oelta-star 

THETA 



1.6098 2. 27156-01 1.41106-01 


-1 .46156*00 

-1.45636*00 

-l .44596 *00 

-1 .43546*00 

-1 .42496*00 

-1 .41446*00 

-1.38916*00 

-1.35426*00 

-1,31926*00 

-1.25006*00 

-1 ,2011E*00 

-1.15706*00 

-1.26056*00 

-1.07326*00 

-7.33486-01 

-8.60B76-01 

-9.58346-01 

- 1 . 0485E *0 0 

-1.20516*00 

-1.39666*00 

-1 .12456*00 

5* 9698E *00 

CFS 

3.2239E-03 


REPRODUCIBILITY OF THE' 
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CFC 

-2.13506-05 


W8<3> 

5.3461E*0l 


alpan 

1 .37476*01 


o****************** 








• RAE2215<F0STER) 


AT X 

* 

30.58633949 

OX 

- 

3.000E-02 

DELTA 


8.316E*00 

DELS 

- 

l .100E-01 

THETA 


8.347E-02 

H 

= 

1 .3 18E*00 

uo 


1 «99QE *01 

u 

= 

1 .279E*02 


DROOPED LEAOING EOG6-30 DEG FLAP ***** 

AT X « 30.58633949 

UTAU * 4.574E*00 

CF2M 1 * 1.9416-03 

CF2<2)* 1.9416-03 

CT2(3l* 1.9316-03 

ITER = 1 

PRF NO= 1048 
P { 3) s 1*7566*01 



X = 30.55633949 

X = 30.58633949 

Y 

w 

u 

0.00000 

0. 

0. 

.00000 

3.550E-02 

2.3086-02 

.00001 

7 .0996-02 

4.6206-02 

.00001 

1 .0656-01 

6.9356-02 

.00002 

1.4206-01 .. 

9.2526-02 

.00003 

2. 127E-01 

1.3096-01 

.00004 

2.629E-01 

1.05OE-O1 

.00005 

3.5196-01 

2.3046-01 

.00006 

4.198E-01 

2.7526-01 


X * 30.56633949 


UP 

0. 

2.9526*00 
S.908E*00 
8.8606*00 
1 . 1836*0 1 
1.776E*01 
2.365E*0l 
2.947E*0l 
3.520E*0l 


DU/OY 
1 . 133E*05 
9.452E * 03 
9 . 466E *03 
9.4796*03 
9.480E*03 
9.4506 *03 
9. 368E* 03 
9.235E*03 
6.035E*03 


V 

0 . 

1 .001E-04 
4.0056-04 
9.010E-04 

1 .60 IE-0 3 
3. 5906-03 
6.3016-03 
9.926E-03 
1 .4206-02 


EDDY 

0 . 

8.777E-09 
1 .3946-07 
7.0O2E-O7 
2.1 92E-06 
1.0846-05 
3.3166-05 
7.7866-05 
1 .0276-04 


P-GRAD 
1.3576*04 
1 .3576*04 
1.3506*04 
1.3586*04 
1 .358E*04 
1.3586*04 
1.3586*04 
1.3586*04 
1.3586*04 


U-INVISCID 
1 ,048E*02 
1 .0486*02 
1.0486*02 
1.0486*02 
1.048E*0? 
1.0486*02 
1 .0486*02 
1 .0486*02 
1 .0486*02 



a 

9 

3.49626*01 
4 . 1 743E *0 1 

9.65 05E-02 
9.5859E-02 

3.47996*01 

4.15516*01 

4 , . A3 

3. 3687E *00 
3.99536*00 


REPRODUCIBILITY 

OF THE 
J POOR 







original page k 

.00007 

4.0565*01 

3.189E-01 

4.0706*01 

4 . 30 7E * 03 

2.415E-02 

2.187E-04 

1.3596*04 

1.0486*02 

.00009 

5.460E-01 

3.594E-01 

4.5966*01 

4.019E+03 

3.5326-02 

4.677E-04 

1 .359E *04 

1.0406*02 

.0001 1 

6.024E-01 

3.975E-01 

5.033E *0 1 

2.4956*03 

4. 7576-02 

5.6246-04 

1.3606*04 

1.0486*02 

.000 15 

6.536E-01 

4.326E-01 

S. 5326*01 

1 .6446*03 

7.3906-02 

1 .0106-03 

1.3606*04 

1 .0486*02 

.00019 

6.950E*01 

4.617E-01 

5.9056*01 

l .4206*03 

1 .01 76-01 

1 .8186-03 

1.3616*04 

1.0486*02 

♦00022 

7.318E-01 

4.881E-01 

6,2426*01 

8.6426*02 

1 .3076-01 

1.9456-03 

1 .3626*04 

1.0486*02 

.00030 

7.64SE-01 

5.124E-01 

6.5536*01 

5.6816*02 

1,9086-01 

2.8846-03 

1 .3636*04 

1.0496*02 

.00037 

7.900E-01 

5.325E-01 

6.810E*0 1 

4.9836*02 

2.526E-01 

4.4426-03 

1.3656*04 

1.049£*02 

.00045 

8. 1306-01 

5.514E-01 

7.0526*01 

3.2226*02 

3. 1586-01 

4.3726-03 

1 .3666*04 

1.0496*02 

. 00060 

8.3446-01 

5. 7035-01 

7.2946.01 

2.2826*02 

4.448E-01 

5.7096-03 

1.3696*04 

1 ,OS06*O2 

.00075 

8.514E-01 

5.871E-01 

7 »S086 *0 1 

2.1276*02 

5.760E-01 

8.3636-03 

1.3726*04 

1.0506*02 

.00050 

8.6695*01 

6.036E-01 

7.7196*01 

1.4466*02 

7.0896-01 

8.1936-03 

1.3756*04 

1.0515*02 

.00120 

8. 8166-01 

6.210E-01 

7.9426*01 

1.0676*02 

9.7766-01 

1 .0756-02 

1.3816*04 

1 .0516*02 

,00149 

6.930E-01 

6.370E-01 

8. 146E*0l 

1.0236*02 

1 .2496*00 

1 .6116-02 

1.3876*04 

1 .0S26*02 

,00179 

9.034E-01 

6.530E-01 

8.3516*01 

7.0916*01 

1.5216*00 

I .6086-02 

1.3936*04 

1.0536*02 

.00239 

9. 131E-01 

6.702E-01 

8.5716*01 

5.3396*01 

2.0696*00 

2.1526-02 

l ,4056*04 

1 .055E*02 

.00299 

9.205E-01 

6 . 864E *0 1 

8.7736*01 

4.9166*01 

2.6196*00 

3.Q96E-02 

1.4176*04 

1.0576*02 

.00359 

9.263E-01 

7.Q10E-01 

a.964E*Ol 

4.7276*01 

3.1676*00 

4.2866-02 

1 .4296*04 

1 .059E*0? 

.0041 a 

9.315E-01 

7.160E-01 - 

9.1566*01 

3.4306*01 

3.7146*00 

4.2346-0 2 

1 .4416*04 

1 .0616*02 

.90538 

9.364E-01 

7.332E-01 

9.376E *0 1 

2.9826*01 

4.7956*00 

S.354E-02 

1 .4166*04 

1.0656*02 

.00657 

9.399E-01 

7.5336-01 

9.6346*01 

3.4736*01 

5.8266*00 

5.3896-02 

1.2886*04 

1.0736*02 

.00777 

9.423E-01 

7.766E-01 

9.9326.01 

2.5766*01 

6.7606*00 

5.4956-02 

l . 1606*04 

1 .0816*02 

.01016 

9.41 7E-01 

8.016E-01 

1.0256*02 

1.4686*01 

0.3296*00 

5.9146-02 

9,1456*03 

1.0966*02 

.01255 

9.370E-01 

8.134E-01 

1.0406*02 

4. R 926+00 

9.S85E*00 

6.5996-02 

8.0926*03 

1 . 1066*02 

.01494 

9.282E-01 

8.139E-01 

1.0416*02' 

-4.528E*00 

1 ,0S3E*01 

7.5286-02 

7.0396*03 

1 . 1176*02 

.0 W33 

9.160E-01 

8.021E-01 

1.0266*02 

- 1 « 316E *0 1 

1 .1356*01 

8.6746-02 

6.4906*03 

1.1256*02 

.01 97 2 

9.0 14E-o 1 

7.810E-01 

9.9876*01 

-1.9646*01 

1 . 193E*0 1 

1.0006-0 1 

5.9536*03 

1 . 1 346*02 

.0221 1 

8.8S2E-01 

7.529E-01 

9.6236*01 

-2.4176*01 

1 .2336*01 

1.1476-01 

5.6076*03 

1.1416*02 

.02450 

8.682E-01 

7.205E-01 

9.2136*01 

-2.7676*01 

1.2626*01 

1 .3036-01 

5.2866*03 

1 .1486*02 

.02689 

S.501E-01 

6.8376-01 

8.7436*01 

-3.3036*01 

1.2816*01 

1 .4656-01 

S. 0486*03 

1.1546*02 

.02928 

8.2816-01 

6.3786-01 

8.1566*01 

-2.4366*01 

1.2986*01 

1 .6266-01 

4.8316*03 

1 .1606*02 

. 03407 

3.059E-01 

5.923E-01 

7.5746*01 

-1.5056*01 

1.3376*01 

1 .9296-01 

4.4936*03 

1.1716*02 

.03685 

7.896E-01 

5.6256-01 

7.1 93E *01 

-8.9926*00 

1.3926*01 

2.1 776-01 

4.2276*03 

1.1816*02 

.04363 

7.783E-01 

5.472E-01 

6.9936*01 

-3.4436*00 

1 .4696*0 1 

2.3386-01 

4.0076*03 

1.1896*02 

. 04841 

7.71SE-01 

5.453E-01 

6.9736 *01 

1.7196*00 

1 .5716*01 

2.3946-01 

3.0206*03 

1 .197E*02 

.05319 

7.690E-01 

S.559E-01 

7.1086*01 

6. <.786*00 

1.7026*01 

2.3946-01 

3.6566*03 

1 .2056 * 02 

.05797 

7. 70 9 £-01 

5.777E-01 

7.3336*01 

1.0596*01 

1 .8636*01 

2.3946-01 

3.5106*03 

1 .2126*02 

.06275 

7.77 3E -01 

6.088E-0 l 

7.7866*01 

1.3796*01 

2.0506*01 

2.3946-01 

3.3796*03 

1.2186*02 

.06753 

7.8856-01 

6.467P-01 

8.2706*01 

1.5046*01 

2. 2S86 *0 1 

2.3936-01 

3, 258F *03 

1,2246*02 

.07232 

6.043E-0 1 

6 . 88 1 € *0 1 

8.7996*01 ‘ 

1.6836*01 

2.4796*01 

2.3906-01 

3.1486*03 

1 ,230E*02 

.07710 

8.2S1E-01 

7.309E-01 

• 9.347E*01 

1.7336*01 

2.7046*01 

2.3836-01 

3.0456*03 

1 .23S6*02 

.08188 

8.51SE-01 

7.748E-01 

9.9096*01 

1.7346*01 

2.9306*01 

2.3686-01 

2.9486*03 

1 .2406*02 

.08666 

8.838E-01 

8.177E-01 

1.0466*02 

1.6306*01 

3. 1506*01 

2.3386-01 

2.aSRE*03 

1 .2456*02 

.09144 

9.175E-01 

8.564E-01 

1.0956*02 

1 .4276*01 

3.3516*01 . 

2.2846-01 . 

2.7736*03 . 

1 .2 496*02 . 

.09622 

9.4816-01 

8.891E-01 

1 .U7E*02 

1 . 1926*01 

3.5206*01 

2.1946-01 

2.6916 *03 

1 .2536*02 

.10100 

9.719E-01 

9.161E“01 

1. 1726*02 

9.8596*00 

3 • 659E* 0 1 

2.0586-01 

2.6096*03 

1 .2586*02 

.10578 

9.876E*01 

9.385E-01 

1.20 0E *02 

8.2836*00 

3.7746*01 

1 .8706-01 

2.5286*03 

1 .2626*02 

. 11056 

9 .96 IE— 0 1 

9.575E-01 

1.2256*02 

7.1386*00 

3.8716*01 

1.6336-01 

2. 4466*03 

1 .2666*02 

.11535 

9.997E-01 

9.7426-01 

1 .2466*02 

6.3836*00 

3.9546*01 

1 .3S96-01 

2.3646*03 

1.2706*02 

.12013 

1 .0016*00 

9.89SE-01 

1.2656*02 

5.15 9E *00 

4«025E*0,1 

1.0716-01 

2,2836*03 

1 .2756*02 

.12491 

J 

1 

2 

1 

l.000£*00 

U» 

0. 

3.509GE«00 
T,62l**r *08 
3 6* mr »o 3 

1.0006*00 

RFTft 

1 .00056-01 ‘ 

9.9*35002 

9.9Jl9f>0? 

9 -o? 

1.2796*02 

US 

0. 

3.49166*00 
6.98726.00 
1 f.tftM'.Ql 

0. 

WC 

0. 

3.49226-01 
6.9*2ftf-0l 
1.041 *6 + 00 

4.0516*01 

7.9306-02 

2.2016*03 

1 .2796*02 
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8 


3 • 4962E' *01 

9.650S6-02 

3.47996*01 

9 


4. 174 3E *01 

9.5059E-O2 

4.1 55 1 E • 0 1 

10 


4 . 8344E * 0 1 

9.509 OE-02 

4.01 256*01 

n 


5 .4450E *0 1 

9.40766-02 

5.42106*01 

12 


6 . 0 1 73£ *01 

9 .29706-02 

5.99136*01 

13 


6.54316*01 

9.15 96E-02 

6.51566*0! 

14 


6 . 9767E*0 1 

8 .99256-02 

6.94856*01 

15 


7.3666E *01 

8.81336-02 

7.33006*01 

16 


7.7232E*01 

8.59326-02 

7.69476*01 

17 


8.01346*01 

8. 34016-02 

7.98566*01 

18 


8.28336*01 

8.06446-02 

0.2563E*O! 

19 


8.54936*01 

7.71856-02 

8.52396*01 

20 


8.77966*01 

7.3263E-02 

8.75636*01 

21 


9.0033E*01 

6.9014E-02 

8.98186*01 

22 


9 .234 7E *0 1 

6.38526-02 

9.21596*01 

23 


9 .44 1 <*£ ♦ 0 1 

5. 83756-02 

9.42546*01 

24 


9 .64696*0 1 

5.26 05E-02 

9,63366*01 

25 


9 .8636E *0 1 

4.5577E-02 

9.85326*01 

26 


1 .00636*02 

3.9232E-02 

1 . 00S6E *02 

27 


1 .0241E*02 

3.2545E-02 

1.02366*02 

28 


1 .04236*02 

2.64Q0E-O2 

1 .04196*02 

29 


1 .0629E*02 

1 .B675E-02 

1.06276*02 

30 


l .086SE *02 

9 .03476-03 

1 .08656*02 

31 


1 .1 136E*02 

-2.3442E-03 

1,11366*02 

32 


1 . 142 1 E *02 

-1 .52216-02 

1.14206*02 

33 


l . 1S45E*02 

-2. 29476-02 

1.15426*02 

34 


1.15306*02 

-2.68476-02 

1 .15266*02 

35 


1 . 1 3666*02 

-2.62066-02 

1.13626*02 

36 


1.10896*02 

-2.21846-02 

1.10866*02 

37 


1.07286*02 

-1.491 0E-02 

1.07276*02 

38 


1 .03176*02 

-5.07866-03 

1.03176*02 

39 


9 .85356*01 

7.6248E-03 

9.05326*01 

40 


9 .280 7E *0 1 

2. 55616-02 

9.27766*01 

41 


8.71346*01 

4.54736-02 

8.70446*01 

42 


8.34066*01 

S. 89426-02 

9.32616*01 

43 


8.14196*01 

6.46976-02 

8.12486*01 

4*. 


8.101 ftE *01 

6.24036-02 

8.08596*01 

45 


8.21156*01 

5.26146-02 

8.20016*01 

4ft 

1 

0 . 4595E *0 1 

3.71 12E-02 

8.45376*01 

47 


8.82556*01 

1 .8546E-02 

8.02396*01 

48 


9.28266*01 

-3.44636-04 

9.26266*01 

49 


9.79406*01 

-1 .71926-02 

9.79266*01 

50 


1.03366*02 

-3.00156-02 

1 .03316*02 

51 


1 .0905£*02 

-4. 09296-02 

1 .08966*02 

52 


1 .14756*02 

-4.73.736-02 

1.14626*02 

53 


1.20006*02 

-5.06536-02 

1.19856*02 

54 


1 .24496*02 

-5.2404E-02 

1.24316*02 

55 


1.28166*02 

-5.42726-02 

1 .27976*02 

56 


1.311 1E*02 

-5.72706 -02 

1.30906+02 

57 


1.33536*02 

-6.15366-02 

1.33286*02 

58 


1.35566*02 

-6.64896-02 

1 ,3S26E*02 

59 


1.37386*02 

-7.171 7E-02 

1.37036*02 

60 


1 .38616*02 

-7.5766E-02 

1.38216*02 


X 

C8ETA 

CF2 131 

CFR 

30. 

5863 

5.7325 

1.9313E-03 

2.2966E-03 


H 

oelta-star 

THET4 

• 


1.4482 1.93806*00 1.33R2E + 00 


3 .36876 *00 
3.99536*00 
4.59016*00 
5,11496*00 
5.58626 *00 
5.98486*00 
6 ,2ft54E *00 
6.48406*00 
6.62856*00 
6.67556*00 
6.67276*00 
ft . 5923E*00 
6.42666*00 
6 . 2086E ♦ 00 
5 »89?5E*00 
S.50B3E+00 
5.07246+00 
4 .S334F * 00 
3.94706+00 
3.37336+00 
2.75226*00 
1 .98486+00 
9.81616-01 
-2.61OSE-0 I 
-1.73846*00 
-2.64096*00 
-3.09526*00 
-2. 9873E+00 
-2.45966+00 
-1 .599SE+00 
-5.23946-0 t 
7.51 30E-0I 
2.37196*00 
3.96086*00 
4.9133E*00 
5 . 2639E * 00 
5.05246*00 
4.31 84E* 00 
3.1387E*00 
1 . ft 366E * 00 
-3. J991E-02 
-1.68376*00 
-3.1 8456*00 
*>4.4621 E*00 
-5.42946*00 
-6 .0 760E*00 
-6.52056*00 
-6.95186+00 
- 7 .5 P46E * 00 
-8.21 16E*D0 
-9.00656*00 
-9 . 844 1 E *0 0 
-1.04916*01 


CFS CFC WB|3» ALP*N 

2.28516-03 2.2939E-04 5.34616*01 2.7029E+O1 


i 
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***#«•**•«<►•*** 


VALUES OF DISPLACEMENT THICKNESS. MOMENTUM thickness, 

AND SHAPE FACTOR FOR THE WHOLE BOUNDARY LAYER (LAST PROFILE! • 

PELS = 2.602E*00 THETA * 1.I92E*00 H * 2.182E*Q0. 

profile drag coefficient 


LIFT COEFFICIENT 
CL = 3. 131E*00 


CO = 5.369E-02 




* 


«H»»0«***e****'»*,***,* 









lift drag ano moment summary table 


ITERAT ION 


LIFT COEFFICIENT 


MOMENTUM COEFFICIENT 


DRAG COEFFICIENT 


I 

3 .90395 

-.78079 

.05163 

i , 2 

3.29825 

-.73431 

.05485 

i 

3 

3.21873 

-.71122 

.05843 

A 

3.17688 

-.69957 

.05885 

s 

3.15483 

-.69363 

.05302 

6 

3.13692 

-.69026 

.05382 

7 

3.13130 

-.68050 

.05388 

0 * cut »«.*<. 0,0 »*<»««<*<» *« 
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EEPROnuCPTTJTY OF THE 
<F T ' ' ; IS POOR 

OVERLAY (FRI5.0.0) 

PROGRAM VIP(INPUT=1001*TAPE5=INPUT*OUTPUTs1001*TAPE6j 

lTAPEl = 100ltTAPE3 = 10 01*TAPE7 = 100l*TAPE8«=l001 *TAPE9«100l* 
2TAPE10*1001»TAPEll B 100i *TAPE1 2=1001 ) 


•OUTPUT 


INFINITE SPAN THREE 
INTERACTION PROGRAM 


DIMENSIONAL HIGH LIFT VISCOUS/POTENTIAL FLOW 


COMMON/NXT/NXT 
C0MM0N/N9L/NPL 
COMMON /ANGLE/ ANGLE 

COMMON /CL/ CL*CCT*C0F«CDP*DUD(2) *CM 
COMMON /CPS/ CPS ( 600 ) 
COMM0N/GAMM/GA(60 0> *Q<600) 
COMMON/GRIO/ ZCP <201* CP 1(20*30) *YGAP 


VIP. 3 
VIP.4 
VIP. 5 

V IP .6 
VIP. 7 
VIP. 8 
VIP. 9 
VIP. 10 
V1P.U 
VIP. 12 
VIP. 13 

V IP • 14 
VIP. 15 
VIP. 16 


COMM0N/SLOT/HSSn00)*TSSU00>»OSSa00)*CSS<l00)*USSI100)9OTSS(100)VIP. 7 


COMMON/CURVES/ R (30*2 > 

COMHON/XGEM/ I GEM 
COMMON/CLCH/ CLX < 4 ) * CMX (4 ) 

COMMON/PHIL/ I PH IL 
COMMON/XFNO/XF INC (20) *NXF1N0 
COMMON/ARC/ TOLL 1 »TOLL2 
COMMON /NUS/ NUS 
COMMON /NPT/ NPT 
COMMON/SWEEP/ HH1 .RRTHl *KSW 
COHMGN/TOTQ/CONS *GNEOK»KGNO 
COMMON/NANGLE/N ANGLE 
COHMON/KPRINT/KPR I NT 
COMMON /NSIDE/ NS10E 
COMMON / 1 TR/ ITRflTRMAX- 
COMMON /IPRINT/ I PR INT ♦ NSK IP 
COMMON/ INSTB/ INSTB.ITPAN 
COMMON/MTRAN/ MTRAN 
COMMON/XTRIP/ KCOOE *TRIP 
COMMON/GAP/ l GAP (2) * SXU ( 2 ) 

COMMON/XSOLVE/ISCLVE 

COMMON / JMAX/ JMAX „ 

COMMON /PARAM/ MACHtALPHA.REFA* MATIN*REFC*UlN*REFX*REFZf CREF 
COMMON/FSTART/ CF I f HI * THETA I *UTE 
COMMON /SANGLE/ SANGLE 

COMMON/SEG/NCHPT*NFLAP*NF *NC<4) *TE (12) *NPU<4) *NPL<4) *DUM<42) 
COMHON /SIG/ SIG(200) .SIGMAD(200) *SIGMA (0*100) 

COMMON /RN8/ RNB 

COMMON /XIN/ XIN(IOO) *ZIN<100) *CPIN(100) *5U(100) 

COMMON /TRIPUL/ T R IPUP *TR I POP 
COMMON/DENSE/SSS(2CO) .USD (200) 

COMMON /TITLE/ TITLE(8> 

COMMON /VELCOH/ NPO INT.NP ART * IMAX »EX tPR INT 

COMMON /SCRAT/ ALES ( 200 >. BETA ( 200 > *CO ( 200 ) .CFO ( 2001 *CF 1 ( 200 ) » 
ICE2(200> ♦ DEL (200) *0ELST2(200> *OELT ( 200 ) *N ( 2 00 ) *HHDS ( 200 ) *Hl (200) * 
2PK (200) »RDEL (200)*RINSTB(200)*RTRAN(200)*PKBAR(200>*RTH(200)* 

3S (200) *U(200> *OU (200) * S J0(200) *UU 0(200) *THET12(200> *THET21 (200) * 
4THET22(HOO>»THT(200)*X(200)*Y(200>*CPC(200)*Z(200) *OUMY (6400 ) * 

5X IP (8 *100 >*Z IP <8* 100)* CP IP (8*100) *NPP (8) .DUMMY <192) 

DIMENSION CPU(200)*CPL(100) 

DIMENSION CL5(8)*CMS(8)*CDS(8) 

REAL MACH - .. 

DATA FR I 5/4HFR 15/ 

MTRAN » 1 

READ (5*520 0 ) ( T ITLE ( I > * I s l *8 > 

WR I TE(6 *6200 > (TITLE (I > *1=1*8) 

6200 FORMAT (lHl*4flX*8A10//> 

READ (5*6700) XXF I NO * XPHlL * TOLL1 *TOLL2 » XSOLVE *XGEM 
NXFIND = INT(XXFINO) 

• IPH1L a INT(XPHIL) 

ISOLVE a INT (XSOLVE) 

1GEM * INT(XGEM) 


VIP. 10 
VIP. 19 
VIP. 20 
VIP. 21 
VIP. 22 
VIP. 23 
VIP. 24 
VIP. 25 
VIP. 26 
VIP. 27 
VIP. 28 
VIP. 29 
VIP. 30 
VIP. 31 
VIP. 32 
VIP. 33 
VIP. 34 
VIP. 35 
VIP. 36 
VIP. 37 
VIP. 38 
VIP. 39 
VIP. 40 
VIP. 41 

V IP .42 
VIP. 43 
VIP. 44 
VIP.4S 
VIP. 46 
VIP. 47 
VIP. 48 
VIP. 49 
VIP. 50 
VIP. 51 
VIP. 52 
VIP. 53 
VIP. 54 
VIP. 55 
VIP. 56 
VIP. 57 

V IP *58 
VIP. 59 
VIP, 60 
VIP. 61 
VIP. 62 
VIP. 63 
VIP. 64 
VIP. 65 
VIP. 66 
VIP. 67 
VIP. 68 
VIP. 69 
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uuo 


IF (NXFINO.EQ.O) GO TO 30 

READ (5* 6700) { XF IN D ( I ) * 1 *1 *NXF 1NO) 

|F (NXF I NO «GT *20) STOP 7777 
6700 FORMAT (8F 10*0) 

30 CONTINUE „ 

READ (5*5000) RN8 ? TRIPUP * TR I POP* S ANGLE* TRMAX *REFC*UIN 
IFIREFC.EQ.O.) REFC*1.0 

READ (5*5000) XPR I NT »XSK IP *REFX*REFZ»CREF *PRINT *CASE 
MCASE 3 INT (CASE) 

KPRINT = INT (PRINT) 

IF (MCASE. EG.Q) MCASE * 1 
NANGLE = 1 
DO AO NS10E = 1*8 
DO 40 I =1*100 
40 SIGMA (NSIOE*l) = 0. 

RN8=RNB»1 .GE06 
ITR = 1 

I TRHAX= INT (TRMAX) 

KAMAX i I TRMAX 
IPRINT=INT (XPR INT ) 

KSKIP=INT<XSK1P) 

INPUT INITIAL GEOMETRY ANO CALCULATE THE POTENTIAL FLOW 


VIP. 70 
VIP. 71 
VIP. 72 
VIP. 73 
VI P.74 
VIP. 75 
VIP. 76 
VIP. 77 
VIP. 78 
VIP. 79 
VIP. 80 
VIP. 81 
VIP. 02 
VIP. 83 
V IP .04 
VIP. 05 
VIP. 86 
VIP. 87 
VIP. 80 
VIP. 89 
VIP. 90 
VIP. 91 
VIP. 92 
VIP. 93 


100 CONTINUE 

call overlay (Frjs*i*0) 

IF(MACM.LT.0.) call exit 
CLS(ITR) = CL 
CMS (I TR ) = CM 
IFUTR.LE.2) GO TO 101 

ERR = ABStCLS<ITR>-CLS<ITR-m/AeS(CL$<IT»>> 
IF(ERR.LT.T0LL1> ITRMAX = ITR 
IF(IPHIL.GT.ITRMAX) IPHIL a ITRMAX 

101 CONTINUE 
NSIDE = 0 
WRITE (6*7000) 

WRITE (6 *7400) MACH*ALPHA*SANGLEf ITR 
DO 60 N= 1 *NCMPT 
DO 50 NS= 1*2 
NSIDE = NSIDE*! 

IMAX = NPP(NSIDE) 

WRITE (6*7100) NfNSIDE 

WRITE (6*7200) _ „ 

WRITE (6*7300) ( X IP (NS 1 DE * I > * ZIP (NS IOE* I ) ♦ CP I PINS IDE* I > 
1 1 ) * 1 = 1 * IMAX1 
50 CONTINUE 
60 CONTINUE 

WRITE (6*7500) 

WRITE (6*7900) 

WRITE (6*6000) (N*CLX(N)»CMX(N) *Nal*NCMPT) 

WRITE (6*7500) 

NS IDE = 0 
NSEG=NCMPT 

nf=nflap 

GO TO (1 *2*3*4) *NSEG 

1 KSEG = NSEG ♦ 1 
GO TO 5 

2 KSEG = NSEG ♦ 2 

IF (NFLAP.EQ.l ) KSEG “ 3 
GO TO 5 

3 KSEG = NSEG ♦ 3 • 

IF (NFLAP .£0 • 1 ) KSEG * 5 
IF (NFLAP.E0.2) KSEG * 3 
GO TO 5 

4 KSEG = NSEG * 1 
5 CONTINUE 

LSEG=KSEG 


VIP. 94 
VIP. 95 
VIP .96 
VIP. 97 
VIP. 98 
VIP. 99 
VIP. 100 
VIP. 101 
VIP. 102 
VIP. 103 
VIP. 104 
VIP. 105 
VIP. 106 
VIP. 107 
VIP. 108 
VIP. 109 

viP.no 
V1P.111 
VIP. 112 
♦SIGMA(NSIOE*VIP.113 
VIP. 114 
VIP. 115 
VIP. 116 
VIP. 1 17 
VIP. 118 
VIP. 119 
VIP. 120 
VIP. 121 
VIP. 122 
VIP. 123 
VIP. 124 
VIP. 125 
VIP. 126 
VIP. 127 
VIP. 128 
VIP. 129 
VIP. 130 
VIP. 131 
VIP. 132 
VIP. 133 
VIP. 134 
VIP. 135 
VIP. 136 
VIP. 137 


i 
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r> o r> 


15 


16 

14 


CALCULATE BOUNOARY LAYER DEVELOPMENT ON ALL LOWER SURFACES ANO 
UPPER SURFACES OF SLAT AND MAIN WING 

& IFCLSEG) 8*8.7 
7 CONTINUE 
NBL = 200 
NSI0E=NSIDEM 
IF(NF.EO.O) GO TO 14 
IF(NS10E.E0.KSEG> NSIOE=NSlDEd 
lF(NSlOE.LE.J) GC TO 16 

IF (NSEG.GE.3.AN0.NFLAP.EQ.2) GO TO 15 

GO TO 16 

CONTINUE „ w 

IF(NCMPT.E0.3.AND.NSIDE.EQ.6) GO TO 16 

IF (NCMPT .EO .4 « AND .NS1DE’»EQ«4) GO TO 16 
IF (NSIOE.EQ .8) GC TO 16 
KSEG = KSEG ♦ 2 
LSEG = LSEG ♦ 1 
CONTINUE 
CONTINUE 
NPT^NPP (NSIOE) 

DO 200 N=1*NPT 
XIN(N)*XIP<NSI0E*N> 

ZIN<N>=Z1P<NS1DE.N> 

CPIN(N)=CPIP(NSICE*N) 

200 CONTINUE 

CALL OVERLAY (FRI5*2*0> _ 

CALCULATE SOURCE DISTRIBUTION FOR EACH SEGMENT . 

LLL = ZMNCMPT-NFLAPl-l 
IFINSIDE.EO.LLLI GO TO 12 
GO TO 13 

CONTINUE „ , 

IFIHINBLI .GT.2.51 NBL*N3L-2 
CFI = CF1 INBLl 
HI = H (NBL > 

THETA I = THT(NBL) 

UTE = U (NBL I 
13 CONTINUE 

^(NCHPt!e 0.2.AND.NFLAP.EO.O.ARD.NSIDE.EO.*> COSIITRI 
IFINCMPT.EQ.l. AND. NSIOE.EQ. 2) COSUTR) ■ CDI + COT 
COI a CDT 
LSEGaLSEG-l 
GO TO 6 

CONTINUE _ „ , 

IF (NSEG.GE.3, ANO.NFLAP.tQ.2) KSEG ** KSEG - c 


12 


COI+CDT 


8 


CALCULATE FLAP BOUNDARY LAYER DEVELOPMENT 


NSIDE = KSEG 
REWINO 3 

9 IF(NF) 11*11*10 
10 CONTINUE 

NPT=NPP (NSIOFJ 
DO 300 N» 1 *NPT 
X IN (N ) =X I P (NSIDEiN) 
Z1N(N>=ZIP(NSI0E*N) 

300 CPIN(N)=CPIP(NSIOE*N> 
MTRAN = 2 
WRITE (6.8100) 

CALL OVERLAY <FRI5*2*0) 

HTRAN = 2 

TRIP = SUO ( I TRAN) 

CALL OVERLAY (FRI5 *4 *0) 
CALL OVERLAY (FR15*3*0) 
DO 20 1=1*200 
SUO(I) = SSS(I> 

UUOdl * USO(I) 


VIP. 138 
VIP. 139 
VIP. 140 
VIP. 141 
VIP. 142 
VIP. 143 
VIP. 144 
VIP. 145 
VIP. 146 
VIP. 147 
VIP. 148 
VIP. 149 
VIP. 150 
VIP. 151 
V1P.1S2 
VIP. 153 
VIP. 154 
VIP. 155 
VIP. 156 
VIP. 157 
VIP. 158 
VIP. 159 
VIP. 160 
VIP. 161 
VIP. 162 
VIP. 163 
VIP. 164 
VIP. 165 
VIP. 166 
VIP. 167 
VIP. 168 
VIP. 169 
VIP. 170 
VIP. 171 
VIP. 172 
VIP. 173 
VIP. 174 
VIP. 175 
VIP. 176 
VIP. 177 
VIP. 178 
VIP. 179 
VIP. 180 
VIP. 181 
VIP. 182 

V IP • 183 
VIP. 184 
VIP. 105 

V IP . 1 86 
VIP. 187 
VIP. 188 
VIP. 189 
VIP. 190 
VIP. 191 
VIP. 192 


VIP. 193 
VI P.194 
VIP. 195 
VIP. 196 
VIP. 197 
VIP. 199 
VIP. 199 
VIP. 200 
VIP. 201 
VIP.202 
VIP. 203 
V IP .204 
VIP. 205 
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(I7R?CL5<iTR)*CM$(!TR) *CDS< ITR) t ITR«1« ITRMAX ) 


20 CONTINUE 

CALL SOURCE 
NF=NF-l 

NSIOE = NSIOE * 2 
GO TO 9 
n continue 

IF(NFLAP.GT.O) CDS(ITR) * COT * CDI 
REWIND 3 
MTRAN * 1 

IF ( ITR-ITRMAX) 900*1000*1000 
900 ITR = ITR ♦ l 
GO TO 100 
1000 CONTINUE 

WRITE (6*7500) 

WRITE (6*7600) 

WRITE (6*7700) 

WRITE (6*7800) 

WRITE (6*7500) 

ITRMAX = KAMAX 
NANGLE « WANGLE* l 
ITR = 1 

HCASE a MCASE-1 
IF (MCA5E .GT .0 ) GO TO 1Q0 
CALL EXIT 

FORMAT (1H *IoFI0.5> 

FORMATUH * 3 1 5) 

FORMAT (8F10.0) 

FORMAT OH0t20X*. AIRFOIL GEOMETRY AND SURFACE PRESSURE OISTRIBUTIONVIP.23S 
rn R M A T 1 1 HQ • 2 0 X * ®C 0 MP 0 NE H T = ® ♦ ! 3 * 5 X * * SURF ACE *®*I3/) 

FORMAT (lH0*2t1X*‘X INPUT * 15X *Z INPUT* 10X ‘PRESSURE COEFFICIENT* VI^.238 

VIP. 240 
VIP.241 
VIP. 242 
VIP. 243 
VIP. 244 


600 

601 

5000 

5200 

7000 

7100 

7200 

7300 

7400 

7500 

7600 

7700 

7000 

7900 

0000 

0100 


VIP. 206 
VIP. 207 
VIP. 208 
VIP. 209 
VIP. 210 
VIP.2U 
VIP. 212 
VIP. 213 

V IP .214 
VIP. 215 
VIP. 216 
VIP. 217 
VIP. 218 
VIP. 219 
VIP. 220 
VIP. 221 
VIP. 222 
VIP. 223 
VIP. 224 
VIP. 225 
VIP.226 
VIP. 227 
VIP. 228 

V IP. 229 
VIP. 230 
VIP. 231 
VIP. 232 
VIP. 233 
VIP. 234 


1 10X ‘SOURCE STRENGTH*/) 

FORMATUH * 1 RX »F I 0 .5 » 1 ?X *F1 0 .5 * 1 0 X • F 1 0 .5 . 20X *F 1 0 .5) 

FORMAT UHO*2oX* ‘MACH NO. ** *F 1 0 *5 ♦ 5* * * ANGLE OF ATTACK « *F10.5* 

1 5X*‘5WEEP ANGLE a**F10.5*5X*‘ITERATI0N 3**13/) 

Format! 1M0 »20X :*L IE T^ORAG^ANO ’ MOMENT SUMMARY TABLE-/. 

rSS5i?5 SiliwUllEMTION. 13X •LIFT COEFFICIENT, to* .momentum cov p. as 

IEFFICIENT* lzx ‘CRAG COEFFICIENT*/) J J ,?5 

FnRMAT(lH0*2?X*I5*l8X*F10.5*18X*Fl0.5*18X*Fl0.5) ^ ! n I 

FORMAT(1HO*20X. ‘COMPONENT* 10X ‘LIFT COEFFICIENT* 10X ‘MOMENTUM COV P.240 


IEFFICIENT®/) 

f SS2J? J iSS:IS5:iiSJSSi£Y°^W X 5EiSCSjHEHT ON FLAP UPPER SURFACE 
1 IN SLOT REGION*) 

ENO 


VIP. 249 
VIP. 250 
VIP. 251 
VIP. 252 
VIP. 253 
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HEPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 


SUBROUTINE SOURCE 

COMMON /5CRAT/ AIFS (200 )* BETA ( 200 ) *CD < 200 ) *CFD ( 200 ) *CF 1 ( 200 ) ♦ 

ICF2 <2 00 ) * DEL <200 > *0ELST2 (200) »OELT < 200 ) »H (2 00 ) tHHOS <200 ) » HI (200 ) * 
2PK ( 2QQ ) tRDEL (200 ) »R INST8 <20 0 ) *RTRAN <200) *PKB AR (200) *RTH<200 ) • 
3S(200) *U ( 20 0 ) ♦DU<200) *SUO <200) *UUD(200> ♦THET12(200)*THET21<200)« 
ATH£T22<2Q0) * THT (2 00 > * X <200 ) *Y < 200 > *CPC ( 20 0 ) t Z (200) • 
5XIP(8»100)»ZIP(8*100>»C P IP<8*100) *NPP (8) *Ol)MMY U92) 

COMMON /SIG/ SIG(200> ♦SIGMAO<200) *SIGMA<8» 100) 

COMMON /XlK/ XIN(IOO) »Z1N< 1 0O> *CP IN <10Q ) *SU(lOO> 

COMMON/NPT/NPT 
C0MM0N/N6L/ NBL 
C0MM0N/IT«/ITR*1TRMAX 
COMMON/NUS/NUS 
COMMON /NS IDE/ NS IDE 

COMMON /SEG/ NCMPT*NFLAP*NFP»NC(A > *TE (A) 

FACTOR = ITR-1 

SIGNPT = .115-.01«FACTC3 

IF (NFLAP.GT .0) SIGNPT = ,15 

DO 5 I = 1 * NU S 

IF (H ( I ) »GE*3, ) H<I) a 3. 

5 CONTINUE 

00 10 I * 1 »NUS 
S I G ( I ) = H<n»THT<I)«UUD(I) 

10 CONTINUE 

CALL DCPDX < S I GtSlID* SIGH AD »NUS ) 

K=NS IDE 
B = SIGNPT 
C = -5IGNPT 
DO 20 I = 1 »NPT 

SIGMA (K « I ) = TBLU1 (SUU) *SUD»SIGMAD*1*NUS) 

IF < SIGMA (K* I ) .GE *0) GO TO 70 
JF (5IGMA (K* I > .LE.C) GO TO 60 
20 CONTINUE 
GO TO SO 
60 CONTINUE 
SIGNPT = C 
70 CONTINUE 
IS ® I • 1 
IF(I.EO.l) IS = 1 

SLOPE * (SIGNPT - SIGMAIK* IS) )/<SU<NPT) - SU CIS)) 

ISS = IS ♦ 1 
DO AO I = I SS *NPT 

SIGMA(Ktl) = SIGMA(KUS) ♦ SLOPE<<SU<D - SU(IS)) 

AO CONTINUE 

IF (NCMPT.EQ.l .OR.NFLAP.EQ.O) GO TO 50 
MAIN = NCMPT-NFLAP 
KK = MAIN ♦ MAIN 

IF(NFLAP.EQ.2.ANC.NFP*E9.1) KK a KK ♦ 2 
IF(K.NE.KK) GO TO SO 
SS - SUO <N8L) 

DO 30 I=i»NPT 
IF < SU < I ) *GE »SS) GO TO 90 
30 CONTINUE 
90 CONTINUE 
ISS * 1*3 
IT * 1*2 

IFUSS.GE.NPT> GC TO 50 
SIGMA (K » 1 + 1 ) = S 1 GMA C K ♦ I ) 

S1GHA(K*I*2) = SIGHA(Ktl) 

SLOPE a -SIGMA(K*1T)/<SU<NPT>-SUUT>) 

00 80 I = I SS *NPT 

SIGMA < K 1 1 ) * SIGMA<K*IT1 * SLOPE* <SU< I>-SU< IT) ) 

00 CONTINUE 

50 CONTINUE - 

RETURN 
END 


SOURCE. 2 
SOURCE. 3 
SOURCE. A 
SOURCE. 5 
SOURCE. 6 
SOURCE. 7 
SOURCE. 8 
SOURCE. 9 
SOURCE. 10 
SOURCE.il 
SOURCE. 12 
SOURCE. 13 
SOURCE. IA 
SOURCE. 15 
SOURCE. 16 
SOURCE. 17 
SOURCE. 18 
SOURCE. 19 
SOURCE. 20 
SOURCE. 21 
SOURCE, 22 
SOURCE. 23 
SOURCE. 2A 
SOURCE. 25 
SOURCE. 26 
SOURCE. 27 
SOURCE. 28 
SOURCE, 29 
SOURCE. 30 
SOURCE. 31 
SOURCE. 32 
SOURCE. 33 
SOURCE, 3A 
SOURCE. 35 
SOURCE. 36 
SOURCE. 37 
SOURCE. 38 
SOURCE. 39 
SOURCE. AO 
SOURCE. Al 
SOURCE. A2 
SOURCE. A3 
SOURCE. AA 
SOURCE. A5 
SOURCE. A6 
SOURCE. A7 
SOURCE. A0 
SOURCE, A9 
SOURCE. 50 
SOURCE. 51 
SOURCE. 52 
SOURCE. 53 
SOURCE. 5A 
SOURCE. 55 
SOURCE. 56 
SOURCE. 57 
SOURCE. 58 
SOURCE. 59 
SOURCE, 60 
SOURCE. 61 
SOURCE. 62 
SOURCE. 63 
SOURCE. 6A 
SOURCE. 65 
SOURCE. 66 
SOURCE. 67 
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SUBROUTINE OCPOX (U* X.DU.N) 

> 

OCPOX. 2 

DIMENSION UU) *XU)*DU(1> 


OCPOX .3 

DO 10 I = 1 * N 


OCPOX. 4 

IFU.GT.l) GO TO 1 


OCPOX. 5 

0X1 = X(IM) - X(I> 


0CPDX.6 

0X2 = X ( I *2 1 - X(IU) 


0CFDX.7 

OX = 0X1 ♦ DX2 


DCPDX. 8 

DU1 = UUM> - UU) 


0CPDX.9 

• 0U2 = UU*2> - UU*1) 

) 

OCPOX. 10 

A = OU1 0 (DX2/0X1 ♦ 2.) 


OCPOX. 1 1 

0 = 0U2* (DX1/DX2) 


DCPDX .12 

DUU) = <A-8)/DX 


OCPOX. 13 

GO TO 10 


OCPOX. 14 

1 IFII.EO.N) GO TO 2 


OCPOX. 15 

0X1 a XU) - X(I-l) 


0CPDX.16 

0X2 * X U*1 ) - XU) 


OCPOX. 17 

DX = DX1 * 0X2 


DCPDX. 18 

DU1 a UU> - UU-1) 


DCPDX. 19 

0U2 = UU*1)-U(I> 


0CPDX.20 

A = DU2«0X1/0X2 . . 


DCPDX, 21 

8 = OU1 ®DX2/DX1 


DCPDX. 22 

OU<I) = (A*B)/DX 


OCPOX. 23 

GO TO 10 


OCPOX. 24 

2 CONTINUE 


OCPOX. 25 

OXl = XU-1 ) - X < I -2 ) 


OCPOX. 26 

0X2 = XU) - XU-1) , 


DCPDX .27 

OX = DX 1 ♦ 0X2 


OCPOX, 28 

OU1 = UU-1) -U (1-2 ) 


OCPOX, 29 

DU2 = U<I) - UU-1) 


OCPOX. 30 

A = DU2UDX1/DX2 *2.) 


DCPDX. 31 

B = DU1» (OX2/OX1) 


OCPOX, 32 

DUU) = ( A-B > /OX 


DCPDX. 33 

10 CONTINUE 


DCPDX. 34 

RETURN 


OCPOX. 35 

ENO 


OCPOX. 36 


INTEGER FUNCTION INSERT <Z *X*ND*M* 1S> 

DIMENSION XU) 

IHALF(I) = U ♦ l)/2 
N=IA8S(M) 

INSERT =1 
1 = 1 

IFIN.LE.l) GO TO 34 
ND=MIN0 (ND»N-1 ) 

IF (M .GE. 0) GO TO 445 

IF<AeS(Z*Z-X(l)-X (N) ) .*-E. ABS<X(1>-X<N> ) ) GO TO 445 
IF(X(N).GT.XU).AND.2.GT.X<N>) 1 = N , 

IF IX<N> .LT.X ( 1 ) * ANO • Z *LT .X<N> ) I = N 
GO TO 24 
445 IG0=1 

IF(Xd) .GT. X (2) > I GO=0 
iuhalf <N) 

IDIT=1 

5 IOLTsIHALFUOLT) 

DIF = X <1 )-Z 

IF(IGO.EQ.O) OIFa-OIF 
IF (DIF) 30*24*20 
24 I S= I 

GO TO 52 

20 IF < I- 1 ) 40*40*21 

21 IF(I-IDLT) 23*22*23 

22 IDLT= IHALF UOLT ) 

23 I=I~ JOLT 
I=MAX0U*1> 

GO TO 5 

30 IF U-N) 31*40*40 


INSERT. 2 
INSERT. 3 
INSERT. 4 
INSERT. 5 
INSERT. 6 
INSERT.? 
INSERT. 8 
INSERT. 9 
INSERT. 10 
INSERT. 11 
INSERT. 12 
INSERT. 13 
INSERT. 14 
INSERT. IS 
INSERT. 16 
INSERT. 17 
INSERT. 18 
INSERT. 19 
INSERT. 20 
INSERT .21 
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INSERT. 24 
INSERT. 25 
INSERT. 26 
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INSERT. 28 
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31 01F=X<I*1>-Z 

IFUGO.EQ.O) OIFs-DIF 
IF (DIF ) 3<**3*>*<*<S 
36 1 S= I ♦ 1 
GO TO 52 

34 I=I*IDLT 

IF (I-N) 5 # 5 * 35 

35 I=I-IDLT 
IDLT=1HALF(I0LT) 

GO TO 34 

40 IF (NO > 44*44,43 
44 IF(I.EQ.N) GO TO 24 

IF(ABS<Z-X<1)> .LE. A8S (2-X ( I ♦ 1 ) ) ) GO TO 24 
GO TO 36 

43 I=MIN0 <MAX0 < 1 *1“ <NO-l )/2 ) 9 N-ND) 

15-1 

INSERT * 0 
52 RETURN 
END 

SU8R0UUNE SMLN(XC*CCtB»N) 

DIMENSION XC (4*4 ) 9 B<4>* CC(4> 

C ROUTINE TO SOLVE A SET OF LiNEAR SIMULTANEOUS EQUATIONS, 
NP = N ♦ 1 
NM = N-l 

C TRIANGULARIZATION 
DO 100 K= l *NM 
KP = K* 1 
R a 1 */XC (K *K) 

DO 50 J = KP »N 
50 XC(K,J)= R«XC(Kf'J) 

B ( K ) = R*B(K) 

DOIOO I=KP#N 
S =XC(I*K) 

BII) = Bll)-S*B(K) 

OOIOO J=KP,N 

xc(i9j)=xcn,J)-s*xc(K9 J> 

100 CONTINUE 
C BACK SUBSTITUTION. 

CC(N) a B(N)/XC<NfN) 

DO 200 I = l 9 NM 
K a N-I 
KP * K* 1 
S = 0 (K ) 

OO 150 J=KP*N 
S = S-XC<K9J)«CC(J) 

150 CONTINUE 
CC(K)= S 
200 CONTINUE 
RETURN 
ENO 

FUNCTION T0LU1 ( XX , X »Y 9 MO 9 N) 

DIMENSION X(l>9 Y(l) 

ND=MD 

IF (INSERT(XX9X9NC9N9 I) *E0 • 0) GO TO 43 
TBLU1 =*Y ( I ) 

GO TO 51 
43 CONTINUE 
H- I ♦ND 
TERP1 =0 . 

DO 50 J=t*M 
PX = 1 . 

DO 42 K- 1 #M 

IF (K .EQ. J> GO TO 42 

PX=(PX/<X(J)-X<K)))«(XX-X(K>) _ 

42 CONTINUE 

50 TERP1=TERP1*PX*Y(J) 

TBLU1=TERP1 

51 RETURN 
ENO 
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INSERT. 35 

INSERT. 36 

IN5ERT.37 

INSERT. 38 

INSERT. 39 

INSERT. 40 

INSERT. 41 

INSERT. 42 

INSERT. 43 

INSERT. 44 

INSERT .45 

INSERT. 46 

INSERT. 47 

INSERT. 48 

INSERT. 49 

INSERT. 50 

SMLN.2 
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SMLN.6 
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SMLN.9 

SMLN.10 
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5MLN.14 

SMLN.15 

SMLN.16 

SMLN.17 
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SHLN.19 

SMLN.20 

SMLN.21 

SMLN.22 

SMLN.23 

SMLN.24 

SHLN.2S 

SMLN.26 

SMLN.27 

SMLN.28 

SMLN.29 

SMLN.30 

SMLN.31 

SMLN.32 

T0LU1.2 

TBLU1 .3 

TBLU1 .4 

Tetui .5 

T6LU1.6 

TBLU1.7 

TBLU1.0 

TBLU1.9 

TBLU1 .10 

TBLU1 .11 

TBLU1.12 

TELU1.13 

T8LU1.14 

T8LUI.I5 

TBLU1.16 

T8LU1.17 

TBLU1 .18 

TBLU1.19 

TBLU1.20 


121 



OATA FR15/4HFRIS/ 

REAL HACM 
EPS=1.0E-6 
KTE = 0 
EM=~1 .0 
PI=3. 14159265 
REF A= 1 *0 
REWIND 3 
REWIND 7 
REWIND 8 
REWIND 9 
REWIND 10 

IFUTR.EQ.l. AND. N ANGLE .uT .1 ) 
IFUTR.GT.2) GO TO 350 
IF(ITR.GT.l) GO TO 11 
5 CONTINUE 
NPASS=0 

CALL ROTATE (XU, ZU , XL » ZL > 

IF < I GEM »GE • 1 ) STCP 7000 
NF = 0 
NpeO 

NX = NCMPT - NFLAP 
DO 1? N a l »NCMPT 
IF(N.LE.NX) NPG(N) * 0 
IF (N.LE.NX) GO TO 12 
NF =NF *1 

LPL = NPL <N-1 ) 

XTE <NF> = XLCLPL.N-1) 

ZTE(NF) = ZL (LPL «N- 1 ) 

12 CONTINUE 

IF (NFLAP »EQ .0) GO TO 21. 

DO 22 NX=1»NFLAP 

N - ncmpt~nflap*nx 

LPU = NPU(N) 

DO 23 L=1*LPU 
H(L) = SQRTi <XTE(NX)-XU<L*N) )®«2 ♦ 
IF(L.EQ.l) GO TO 23 
IF (H(L) .LE.H(L-l)) GO TO 23 
IFIHIL) .LE.H(L-2>) GO TO 24 
KGAP = L- l 


POTFLOW.3 
POT FLOW . 4 

potflow.s 

P0TFL0W.6 
POTFLOW • 7 

potflow.s 

POTFLOW. 9 
POTFLOW. 10 
POTFLOW. 1 l 
POTFLOW. 12 
POTFLOW. 13 
) ,NPL ( 4 ) ♦ ISTG (4) POTFLOW. 14 
*NG (3) ,NPG(4) POTFLOW. 15 
POTFLOW. 16 
POTFLOW. 17 
POTFLOW. 18 
POTFLOW. 19 
POTFLOW. 20 
POTFLOW. 21 
POTFLOW. 22 
POTFLOW. 23 
POTFLOW. 24 
POTFLOW. 25 
POTFLOW .26 
POTFLOW. 27 
POTFLOW. 28 
POTFLOW. 29 
POTFLOW. 30 
POTFLOW .31 
POTFLOW. 32 
POTFLOW. 33 
POTFLOW. 34 
POTFLOW. 35 
POTFLOW. 36 
POTFLOW. 37 
POTFLOW. 38 
POTFLOW. 39 
POTFLOW. 40 
POTFLOW. 41 
POTFLOW. 42 
POTFLOW. 43 
POTFLOW. 44 
POTFLOW. 45 
POTFLOW. 46 
POTFLOW. 47 
POTFLOW. 48 
POTFLOW. 49 
POTFLOW. 50 
POTFLOW .51 
POTFLOW. 52 
POTFLOW. 53 
POTFLOW. 54 
POTFLOW .55 
POTFLOW. 56 
POTFLOW. 57 
POTFLOW. 58 
POTFLOW. 59 
POTFLOW .60 
POTFLOW. 61 
POTFLOW .62 
POTFLOW. 63 
POTFLOW. 64 
POTFLOW. 65 
POTFLOW. 66 
POTFLOW. 67 

<ZTE<NX)-ZU(L,N) >**2> POTFLOW. 68 

POTFLOW. 69 
POTFLOW. 70 

- - POTFLOW. 71 

POTFLOW. 72 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


OVERLAY(FPI5*1*0) 

PROGRAM POTFLOW 
COMMON/ ANGLE / ANGLE 
COMMON/ NPT / NPT 
COMMON /ITR/ ITR, ITRMAX 
COMMON / JMAX/ UMAX 
COMMON/NANGLF/NANGLE 

COMMON /XIN/ XIN (100) *ZIN(100 ) *CPIN U00> 

COMMON /PARAM/ MACH. ALPHA.REFA *MAT IN 
COMMON /VELCOM/ N PO INT *NPART * IM AX * EX * PR INT 
COMMON/PO INT/ ARRAY (4950) 

COMMON/GAMM/GA (600) *0 

COMMON /SEG/ NCMPT. NFLAP, NFP,NC<4).THETE<12).NPU<4 

1 »UCU (4 ) ,UCL (4) tWCU(4) *WCL (4) .XTE (4) »ZTE (4 ) »0ELZ (3) 

2 C0MM0N < /SCRAT/ s INBD (600), COSfiD (600), TAN80 (600) *UL (600), WL (6001 • 
1UCJ ( 2 ) ,WCJ<2) ,ULJ (2 ) ,WL J(2) ,UC(600),WC(600)*AC(600),AS<100) 
2.HU00) ,0UM(10192) 

COMMON/GAP/ ZGAP(2>,SXU(2) 

COMMON/CURVES/ R(30,2) 

COMMON/XGEM/ IGEM 

DIMENSION O 0ELTA(600)^THET(600) .CHORD (600 ) ,XPT (600) ,ZPT<600) , 
1XU(30,4) ,ZunO,4) ,XL (30*4) ,ZL (30»4> ,XCOR (600) ,ZCOR(600) ♦ 

^oSl^LEN^'^Rf^ 

1 (ARRAY (1801) ,XPT) ,( ARRAY (2401) vZPT) * 

2(ARRAY(3001) *XU) , (ARRAY <31 21 ) ,XL) ♦ 

3 (ARRAY (3241 ) , ZU > , ( ARR AY ( 336 1 ) ♦ ZL > * 

4 (ARRAY (3481) ,XGR ID), (ARRAY (3571), ZGRID>#( ARRAY (3661), DZDX) ♦ 

5 (ARRAY (3751 ) *XCOP)*(ARRAY<4351>,ZC0R> 


GO TO 45 
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GO TO 25 

24 CONTINUE 
KGAP = L 
GO TO 25 

23 CONTINUE 

25 CONTINUE 

HI - H (KGAP- l ) 

H2 = H (KGAP > 

H3 = SORT nXlJ<KGAP*N)-XU<KGAP-l*N> )**2 
1 «®2 ) 

SA = (Hl w *2 - H2*®2 * N3**2)/2.*H3 
ZGAP(NX) = SORT (H 1**2 - SA**2> 
lFISA.LT.O.) KGAP a KGAP-1 
NPG(N) = KC-AP 
SXU(NX) = SA 
22 CONTINUE 
21 CONTINUE 
NF = 0 

00 40 N=1»NCMPT 

IF<N.E0.1.0R.NPG(N) .EO.O) GO TO 26 ' 

NF = NF * l 

26 CONTINUE 

00 30 NSIDE s l *2 

IF (NS IOE.EQ • \ ) Nt=NPU(N)-l 

IF <N5I0E.E0.2> NL^NPL <N>-1 

00 20 L a l *NL 

NP-NP * l 

IF(NSI0E,E0.2) GO TO IS 

XPTlNP)=(XU<L*l*M*XU(l.*N>>/2* 

ZPT<NP>-<ZU<LM»N>»ZU<L*N)>/2. 

XC-XU(L*1 *N)-XU(L*N) 
ZC=ZU<l*l*N>-ZU<l»N> 

XCOR (NP) = XU ( L » N ) 

ZCOR <NP)=ZU(L*N> 

GO TO 16 
15 CONTINUE 

XPT <NP) = (XL (L*1-»N) *XL(L»N) )/2. 

ZPT <NP) s (ZL(L*l*N)*ZL(t»N) >/2* 
XC=XL<L*l*N)-XLlL*N) 

ZC = ZL 1 1. ♦ 1 ♦N)-ZL<t*N> 

XCOR(NP)=*XUa*I*N> 

ZCOR INP >=ZL <L*1*N) 

18 CHORD (NP>=SQPT (XC°XC*ZC°ZC) 

0 (NP ) = 0. 

THE T {NP ) =0 * 

DELTA<NP>=0. ^ 

IF <ZC»NE«0*> DEITA<NP)=ATAN2<ZC»XC> 

IF(L.LT.NU) GO TO 19 

IF (NS 10E .EG • 1 ) TU=OELT A < N P ) 

IF (NSIOE .EQ.?) TL =OELT MNP) 

LUP a NPU(N) 

IF (NS IOE *EQ • 1 > ZTEU = ZU<LUP»N> 

LUL * NPL <N ) 

IF(NSIDE.EQ.?> ZTEL=ZL (LUL *N) 

19 1F(NSI0E.£G.2.0R.NPG<N) »EG.O> GO TO 2 
LG=LO-NPG<N> 

IF(L.EQ.NL) NG(NF) = LG ♦ l 
IF(LG.LT.l) GO TO 20 
XGRIOaGtNF)=XU(L,N> 

ZGR 10 (LG«NF ) =ZU (L *N> 

nzox ( lg»nf> =zc/xc 
IF(L.LT.NL) GO TO 20 
LL = NPIMN) 

XGR ID (LG* 1 *NF ) = XU(LL«N) 

ZGRIO(lG*l *NF) = ZU(LLtN) 

OZDX < L G ♦ I *NF ) = CZDX(LG*NF) 

20 CONTINUE 
30 CONTINUE 

THETE (N > ~Tl“TU 
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POTFLOW. 74 
POTFLOW . 75 
POTFLOW. 76 
POTFLOW. 77 
pOTFLOW .70 
POTFLOW .79 
POTFLOW. 80 

(ZU<KGAP*N)-ZU(KGAP-l«N> ) POTFLOW. 81 

POTFLOW. 82 
POTFLOW. 83 
POTFLOW. 84 
POTFLOW. 85 
POTFLOW. 86 
POTFLOW. 87 
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POTFLOW. 89 
POTFLOW. 90 
POTFLOW, 91 
POTFLOW. 92 
POTFLOW. 93 
POTFLOW. 94 
POTFLOW, 95 
POTFLOW .96 
POTFLOW. 97 
POTFLOW. 98 
POTFLOW, 99 
POTFLOW, 100 
POTFLOW. 101 
POTFLOW .102 
POTFLOW. 103 
POTFLOW. 104 
POTFLOW. 105 
POTFLOW. 106 
POTFLOW. 107 
POTFLOW. 108 
POTFLOW .109 
POTFLOW.llO 
POTFLOW. Ill 
POTFLOW. 112 
POTFLOW. 113 
POTFLOW. 114 
POTFLOW. 115 
POTFLOW. 116 
POTFLOW. 1 17 
POTFLOW. 118 
POTFLOW. 119 
POTFLOW. 120 
POTFLOW. 121 
POTFLOW. 122 
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POTFLOW. 125 
POTFLOW. 126 
POTFLOW. 127 
POTFLOW. 128 
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POTFLOW. 137 
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POTFLOW. 139 
POTFLOW. 140 
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THKTE (N)=ZTEU-ZTEL 

IF ( AB5 ITHKTE (N) ) *LE .EPS) THKTE IN) *0* 

40 CONTINUE 

WRITE 17) ARRAY 
REWIND 7 
NPOINT=NP 

45 READ (5*50 I ) MACHtALPHA 
GO TO 13 
11 CONTINUE 

00 1 N slfNCMPT 
IFITHKTF. IN) *GT .0 • ) KTE ” 1 
1 CONTINUE 

IFIKTE.EO.O) GO TO 350 
IF(ITR.GT.l) READ (7) ARRAY 
REWIND 7 
13 CONTINUE 
angle=alpha 
ifimach.lt.o.) return 

IF (MACH.EQ.EM) GO TO 325 

eh=mach 

IF ( I TR.EO * 1 « AND .N ANGLE *GT • 1 ) READI7) ARRAY 

REWINO 7 

NPASS=NPASS*l 

eT2=l.-MACH»MACH 

SET ASSORT I8T?) 

C0N=1 ./ (2 **PI » 

BCON=BETA«CON 
DO SO N=1 fNPOINT 
8D=fiE ta*t AN (DELTA <N) ) 

T ANBO (N > -BO 

COSBO IN> = 1 ./SORT <1.*8D«9D) 

50 SINOO IN) =BO*COSBC IN) 

DO 300 1=1 jNPOINT 
X I =XPT (I) 

2I-ZPT (I) 

OI = T ANBO Cl) . 

09=0I/BT2 

12=0 : 

J = 0 

JHAX=0 
JL = 0 
JT=0 
K=0 

00 275 N=1*NCHPT 
JL=JT*l 
jT=JT*NCIN)-2 
JMAX=JMAX*NC<N> 

1 1 = 1 2 ♦ 1 
I2-1 1-3 *NC IN) 

I T= 1 1 +NPU IN ) -2 
1L= I T ♦ l 
UCJT=0. 

WCJT=0. 

AC JT*0 • 

DO 250 NS IOEal *2 
IFINSIOE.EQ.I) NL=NPU(L)-1 
. IF INSIDE. EG. 2) NL=NPL<N)-1 
NL1=NL*1 
00 225 L=1»NL 
J=J* 1 
K =K ♦ 1 

IFII.GT.l) GO TO 58 
IF (NS IDE.E0.2) GC TO 55 
XC=XU <L ♦ 1 *N> -XUIL.N) 

2C = ZU (L ♦ 1 *N ) -ZU IL *N) 

GO TO 56 

55 XC=XL <L ♦ 1 *N) -XL IL *N) 

ZC=ZL<L*1*N)-ZLIL*N) 
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POTFLOW. 148 
POTFLOW. 149 
POTFLOW. 150 
POTFLOW. 151 
POTFLOW. 152 
POTFLOW .153 
POTFLOW. 154 
POTFLOW. 155 
POTFLOW. 156 
POTFLOW. 157 
POTFLOW. 158 
POTFLOW. 159 
POTFLOW. 160 
POTFLOW. 161 
POTFLOW. 162 
POTFLOW. 163 
POTFLOW. 164 
POTFLOW. 165 
POTFLOW. 166 
POTFLOW. 167 
POTFLOW. 168 
POTFLOW. 169 
POTFLOW. 170 
POTFLOW. 171 
POTFLOW. 172 
POTFLOW. 173 
POTFLOW. 174 
POTFLOW. 175 
POTFLOW. 176 
POTFLOW. 177 
POTFLOW. 178 
POTFLOW. 179 
POTFLOW. 180 
POTFLOW. 181 
POTFLOW. 182 
POTFLOW. 183 
POTFLOW. 184 
POTFLOW. 185 
POTFLOW. 186 
POTFLOW. 18? 
POTFLOW. 180 
POTFLOW. 189 
POTFLOW. 190 
POTFLOW. 191 
POTFLOW. 192 
POTFLOW. 193 
POTFLOW. 194 
POTFLOW. 195 
POTFLOW. 196 
'POTFLOW. 197 
POTFLOW. 190 
POTFLOW. 199 
POTFLOW. 200 
POTFLOW, 201 
POTFLOW. 202 
POTFLOW. 203 
POTFLOW. 204 
POTFLOW .205 
POTFLOW. 206 
POTFLOW. 207 
POTFLOW. 208 
POTFLOW. 209 
POTFLOW. 210 
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56 CHORD <K >=SQRT <XC*XC*BT2°ZC*ZC) 

•58 00 100 M= 1 ♦ 2 
L 1 =L ♦M- 1 

IF (NSIOE.EO.?) GC TO 60 
0X=XI-XU(L1*N) 

0Z = (ZI-ZU(LlfN) MBETA 
GO TO 80 

60 DX=XI~XL<U »N> 

DZ=(ZI-ZL(UtN) )»8ETA 
80 XPM=OX*COSflO<K) ♦CZ«SINfiD(K) 
ZPH=nZ«COSeD<K>-CX«SINBOIK) 

IF<A8S (XPH) .LE.EPS) XPM=0. 

IF (AfiS(ZPM) .LE.EPS) ZPK=0. 
APM2=XPM*XPM*ZPM«ZPM 
RPM-0 . 

IF IRPM2 .GT . 0 , ) RPM=SQRT TRPM2) 

G-0 • 

IF <RPM.GT *0 o ) G=ALOG(RPM) 

F=P 1/2. 

IF IXPM.EQ.O..AND.ZPM.EG.O.) GO TO 90 
F=ATAN2 (ZPP*XPM> 

90 CONTINUE 

IF<NSI0E.EQ.2.AN0,ZPM.E0.0,> F=-F 

UCJ<N)=-F 

WCJCM) =-G 

ULJ1M) a- (XPM«F ♦ZPM # G> /CHORD CK) 

WLJ <M ) = { ZPM«F ♦XPM* ( 1 0) ) /CHORD (K) 

100 continue 

UCPM=UCJ<1)“ULJ(1)*ULJ(2) 

WCPM=*CJ( 1 )-wLJ(l ) 

ULPM=ULJ<1)-ULJ(?)-UCJ(2) 

HIPMsWLJU )-WLJ(2)-WCJ(2> 

USPHsWCJ<2)-WCJ(l) 

W5PM=UCJ( l)-UCJ(2) 

UC ( J) = IUCPM °COSBO <K)-WCPM*SINBD<K) ) ®CON 
WC<J)=<WCPM*COSRC <K ) *UCPM ft S INfiD <K ) )°8CON 
UL<J)=(ULPM*COSRC <K)-WLPM*SINBO<K))*CON 
WL(J) =(WLPH*C05BC (K> ♦UlPH*SINBO<K) )°8CON 
USJ=<USPM*COSBOO< )-WSPK«SINBDIKl)*8C0N 
WSJ = <WSPM*COSBD(K) ♦USPP <, SINBD<K) ) *C0N 
UCJT=UCJT*USJ 
WCJT=WC JT *WS J 
ACJT=ACJT*WSJ-DB«USJ 
IF {NSI0E.EQ.2. AND .1 .EQ . 1 ) GO TO 160 
IFIL.GT.l) UCI J)=UC(J)*UL U-l) » 

IF(L.GT.l) WC(J)=WC(J)*WLtJ-l) 

GO TO 200 

160 AS<L)=UC<J>*r>8*WC (J) 

UC<JL)=UCUL)*UC<J) 

WC < JL > =WC (JL) *WC < J) 

AC( JU=WC (JD-DI«UC(JL) 

ULU-l )=UL<J) 

WL(J-1)=WL<J> 

J=J-1 
GO TO 225 

200 AC<J)=WC(J)-Ol*UC(J) 

AS <L ) =UC ( J) *QB°WC (J) 

IF <1 ,LT »NL ) GO TO 225 
IF (NSIOE.EQ.2) GC TO 220 
UCU <N)=UL < J) 

WCU(N)=WL<J) 

ACU-WCU <N) -Dl^UCl) (N) 

AS(NLU=UCU(N> ♦Oe»HCU<N> 

IFU.LT.Il.OR.J.GT.IT) GO TO 215 

11=1-11*1 

DO 210 LL=1»NL 

IF(LL.NE.II) GO TO 210 

AS(LL)*-AS(LL> 
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AS(LL*1 >=-AS (LL+1) 

210 CONTINUE 

215 WRITEU) ACU,(AS(LL) »LL K 1*NL1 
GO TO 225 
220 UCL(N)=ULU> 

WCL IN)=«UJ) 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


ACL=WCL <N)-DI»UCI (N) 

AS (NL1 > =UCt (N) *D8*WCL (N) 
JFU.LT.IL.OR.l .0T.I2) 00 TO 224 


1 1= I- IL*1 
00 222 LL=1*NL 
IF(LL.NE.Il) GO YO 222 
AS (LL ) =- AS (LL ) 

AS (LL* 1 >a-AS <LL*1 ) 


222 CONTINUE 

224 WRITE ( l ) ACL ♦ < AS (LL ) *LL=1 tNLl > 

225 CONTINUE 
250 CONTINUE 

UC(JT)=UCJT 
WC(JT)=WCJT 
AC ( JT ) = ACJT 

IF (THKTE(N) .FQ.0.,0R.ITR.GT.1> GO TO 255 
UC ( JT ) = 0 * 

WC ( JT > = 0 • 

AC( JT)=ACU-ACL 
255 CONTINUE 


J = JM „ „ 

IF(NCMPT.EQ.1,OR.ISOLVE.EO.O> GO TO 275 
JFU .IT, 11. OR. I. OT. 12) GO TO 275 
WRITE (3) <AC(Il*ll-l>*II*ltJT» 

DO 260 I I = l * JT 
260 ACIIl*n-l)*0. 

275 CONTINUE 
J = 0 
K — 0 

DO 290 N*l*NCMPT 
J2=NC (N) 

J1 = J2-1 
JT3J2-2 

DO 290 JJ-l « J2 
J = J*I 

IF(JJ.GT.JT) GO TO 285 
K =K ♦ 1 

UL(J)=UC(K) 

WL <J)=WC(K) 

GO TO 290 

285 IF ( JJ»EO* J2 ) GO TO 206 
UL ( J> =UCU(N) 

WL(J)=WCU(N) 

GO TO 290 

286 UL ( J ) -UCL <N ) 

WL ( J)=WCL<N> 

290 CONTINUE 

WRITE ( 8 ) (UL(J)*WL(J)*J = 1*JHAX> 

WRITE (9 > (AC(J)*'J-dNPOlNT) 

300 CONTINUE 
325 REWIND 8 
REWIND 9 
REWINO 1 
REWIND 3 

350 IF(ITR.GE.2> REAC<7> ARRAY 
REWIND 7 
CALL SOLVE 
400 RETURN 

500 FORMAT (1415) 

501 FORMAT (7F10.0) 

601 FORMAT ( 1H tlOFlO.S) 

660 FORMAT (715* 9F 10*5) 

ENO 


POTFLOW. 279 
POTFLOW *280 
POTFLOW. 281 
POTFLOW *282 
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POTFLOW. 290 
POTFLOW. 291 
POTFLOW. 292 
POTFLOW, 293 
POTFLOW. 294 
POTFLOW. 295 
POTFLOW, 296 
POTFLOW. 297 
POTFLOW. 298 
POTFLOW ,299 
POTFLOW. 300 
POTFLOW *301 
POTFLOW. 302 
POTFLOW. 303 
POTFLOW. 304 
POTFLOW. 305 
POTFLOW. 306 
POTFLOW. 307 
POTFLOW. 300 
POTFLOW, 309 
POTFLOW. 310 
POTFLOW. 31 1 
POTFLOW. 312 . 
POTFLOW. 313 
POTFLOW. 314 
POTFLOW. 315 
POTFLOW. 316 
POTFLOW. 317 
POTFLOW. 318 
POTFLOW. 319 
POTFLOW. 320 
POTFLOW. 321 
POTFLOW. 322 
POTFLOW. 323 
POTFLOW. 324 
POTFLOW. 325 
POTFLOW. 326 
POTFLOW. 327 
POTFLOW. 320 
POTFLOW. 329 
POTFLOW. 330 
POTFLOW. 331 
POTFLOW. 332 
POTFLOW. 333 
POTFLOW, 334 
POTFLOW. 335 
POTFLOW. 336 
POTFLOW. 337 
POTFLOW. 338 
POTFLOW. 339 
POTFLOW. 340 
POTFLOW. 341 
POTFLOW. 34? 
POTFLOW. 343 
POTFLOW *344 
POTFLOW. 345 
POTFLOW. 346 
POTFLOW. 347 
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SUBROUTINE ROTATE <XU.ZU*XL*ZL> 

COMMON/DZDX/ ODX ( 30 > *DOZ < 30 ) »DS<30) 

COMHON/XFNO/ XF (NO { 20 ) *NXF IND 

COMMON/ SCR AT/ XXS<30> *ZZS<30) *TS ( 30 > *XR <30 > iZROO) » TEMP (30)* 
1RAD (30) *XXU < 30*4) «ZZU(30t4) ,XXL (30*4) *ZZl (30*4) *XPW<3) *XPC<3) * 
2ZPW(3).ZPC(3> *OELF (3) * XK ( 30 ) * ZK ( 30 ) * DUMMY (8035) 

COMMON/SEG/ NCMPT,NFLAP*NFP*NC<4> *THETEU2) *NPU (4 ) *NPL (4 ) * 
1DUM(28> *0ELZ (3) *C(JMH(11 > 

COMMON/CURVES/ R<30*2) 

DIMENSION XU ( 30*4 ) *ZU (30*4) , XL <30*4 > *ZL(30*M 

READ (5*500) NCMPT *NSLAT *NFL AP * (NPU(N) *NPL <N > *N*1* NCMPT) 

NF - 0 

00 10 N = l* NCMPT 
LPU = NPU(N) 

LPL = NPL(N) 

NC(N) = LPU*i.PL 

READ (5*501 > (XXU(L*N) *t'~l *LPU) 

READ (5*501) (ZZU(L*N)*L tt l *LPU) 

READ (5*501) (XXL(L»N>*t*l»LPL) 

READ <5 *501 ) (ZZL(t*N)*L=l*LPL) 

NMM = NCMPT - NFL AP 
IF(N.LE.NHM) GO TO 10 
NF = NF ♦ 1 
DELZ(NF) = .005 
10 CONTINUE 
IM = 1 

NP1VOT = NCMPT - 1 
IF (NP IVOT *EQ.O) CO TO 101 
C PIVOT POINTS IN XING COORDINATES 

READ (5*501 ) (XPW(N) *ZPW (N) *N=1 *NP IVOT) 

C PIVOT POINTS IN COMPONENT COORDINATES 

READ <5*501 ) (XPC(N) *ZPC <N> »N = 1 *NP1V0T) 

C FLAP DEFLECTIONS 

READ(5*50i) (OEIF (N)*N*1* NPIVOT) 

N- 1 

NPIVOT =1 

IF (NSLAT.EQ.O) N=2 

102 CONTINUE 

IF (N.E0.2) I Ms 1 
IF (NSLAT . EG . 1 > 1N = 2 

1 = NPIVOT 

OX = XPW(I) - XPC(I) 

DZ = ZPW(I) - ZPC(I) 

TM = DELFU)/57. 2957795 
DO 104 NSIOE =1*2 
IF (NSIDE.EO. 1 ) NL * NPU(N) 

IF (NSIOE.EO*?) NL * NPL IN) 

DO 103 L=1*NL 

IF (NS 10E .E0.2) GO TO 105 

XPP s XXU (L *N ) 

, ZPP = ZZU<L*N) 

GO TO 106 

105 CONTINUE 

XPP = XXL <L *N ) 

ZPP = ZZL(LtN) 

106 CONTINUE 

CALL ROTAN(XPP*ZPP*TH*XPC(I) *ZPC ( I > *0X*02*XX*ZZ> 

IF (NSIOE.EO. 2) GO TO 107 
XU (L *N) = XX 
ZU(L»N) = ZZ 
GO TO 103 

107 CONTINUE 

XL (L*N) * XX 
ZL(L*N) * ZZ 

103 CONTINUE 

103 CONTINUE 

104 CONTINUE 

IF(N.EQ.l. AND. NSLAT. EO.l) N=N*1 
N = N ♦ 1 


5 APR , 1 l 1 

5APR.H2 

5 APR ,113 

5 APR *114 

5 APR « 1 1 5 

5APR.H6 

5 APR .117 

5APR.U8 

SAPR.119 

5APR.120 

5APR.121 

5 APR #122 

5 APR ,123 

5APR.124 

5 APR « 1 25 

5APR.126 

5APR.127 

5APR«128 

5APR.129 

5APR.130 

5 APR .131 

5 APR .132 

5APR.133 

5APR*134 

5APR.135 

5APR.136 

5 APR « 1 37 

5 APR , 1 38 , 

5 APR , 1 39 

5APR « 140 

5 APR .141 

5 APR . 142 

5APR.143 

5APR. 144 

5 APR . 145 

5 APR . 1 46 

5APR. 147 

5 APR • 148 

5APR.149 

5 APR , ISO 

5APR.151 

5APR.152 

5APR* 153 

5APR.154 

5APR.155 

5APR.156 

5APR.157 

5APR.158 

5APR.1S9 

5APR.160 

5APR.I61 

5 APR. 162 

5APR.163 

5APR.164 

5APR.165 

SAPR.166 

5APR.167 

5APR.168 

5APR.169 

5APR.170 

5APR.17I 

5APR.172 

5APR.173 

5APR.174 

5APR.175 

5APR.176 

5 APR . 1 77 

5APR.178 

5APR.179 
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NPIVOT = NPIVOT *1 
IF(N.G7.NCMPT> GO TO 101 
GO TO 102 
101 CONTINUE 
N 3 IM 

00 110 NSIOE = 1*2 
IF (NSIDE .EG* 1 ) NL * NPU(N) 
IF (NSI0E.EQ.2) NL 3 NPL<N> 
DO 109 L = 1 *NL 
IF (NS1DE.EQ.2) GC TO 111 
XU(L.N) 3 XXU(L*M 
ZU(L*N) = Z2U(L*M 
GO TO 112 

111 CONTINUE 

XL(L*N> 3 XX|.(L*M 
ZL(L*N) 3 2ZLlL*M 

112 CONTINUE 

109 CONTINUE 

110 CONTINUE 
WRITE (6*602) 

DO 113 N MtNCHPT 
WRITE(6*603) N 


113 


116 


119 


121 


(XXU(L*N)*ZZU(L*N)*XU(L*N)*ZU(L*N)»L*1 »LHU> 


(XXL (L.N>*ZZL(L.N)*XL(L*N)*ZL<L*N>*L*1 *LPL> 


LPU = NPU(N) 

LPL 3 NPUNI 
WRITE (6*6041 
WRITE (6*606) 

WR I TE (6 *608 ) 

WR1TE(6*607> 

WRITE (6»60S> 

WRITE (6*606) 

WRITE (6*608) 

WRITE(6*607) 

CONTINUE 

IF(NFLAP.EQ.O) GO TO 120 
RE AD (5 *50 1 ) SIGMA 
00 114 NX =1.NFLAP 

N 3 ncmpt-nflap^nx 

LPU 3 NPU (N ) 

SLPl - 0. 

SLPN = 0. 

00 116 L=i*LPU 
XK(U 3 XU (L »N) 

ZK(L) 3 ZU(L*N) 

TEMP (L) = XXU (L«N ) 

continue 

IF(NXFINO.EQ.O) GO TO 
IF(NX.GT.l) GO TO 121 
DO 119 I 3 1 *NXF INC 

XFIND(I) = Tf3LUl(XFlN0(I)*TEMP*XK*l*LPU> 

CONTINUE 

WRITE (6*601) ( XF INO ( I) *I*1*NXFIN0> 

CONTINUE 

CALL KURVl <LPU*XK*ZK*Sl Pl * SLPN* XR *ZR * TEMP *S * SIGMA ) 
T 3 0. 

DO 117 L M»LPU 

CALL KURV20 ( T *XS *ZS *LPL' » XK *ZK* XR *ZR *$ *S IGHA ) 


121 


T 3 -T 
XXS(L) 3 XS 
ZZS(L) = ZS 
TS (L ) = T 
T 3 T * OS(L)/S 
T = -T 

117 CONTINUE 

XXS(l) 3 (XXS ( 2 ) /OS ( 1 ) ♦ XXS(2)/DS(2) 
ZZS(l) 3 ( ZZS ( 2) /DS ( 1 ) ♦ ZZS (2 ) /OS ( 2) 


XXS(3)/0S(2)) # 0S(1) 

ZZS(3)/DS(2))*DS(l) 


SLPl 3 0. 

SLPN =0. 

CALL CURVl <LPU*TS*XXS*CLP1,SLPN*XR*TEMP*SIGMA) 
SLPl 3 0. 
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5APR. 184 
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5 APR .188 

5APR. 189 

5 APR ,190 

5 APR .191 

5APR.192 

SAPR.193 

5 APR . 1 94 

5APR .195 

5APR.196 

5APR.197 

5APR, 198 

5APR.199 

5APR.200 

5APR.201 

5 APR *202 

5APR.203 

5APR.20A 

5APR.205 

5 APR . 206 

5 APR . 207 

5 APR ,208 

5APR.209 

5APR.210 

5APR.21 1 

5 APR .212 

5APR.213 

5 APR . 2 1 A 

5APR.215 

5APR.216 

5APR.217 

5APR.218 

5APR.219 

5 APR ,220 

5APR.221 

5 APR .222 

5APR.223 

5APR.224 

5 APR .225 

5 A PR. 226 

5APR.227 

5APR.228 

5APR.229 

5APR.230 

5 APR .231 

5 APR ,232 

5APR.233 

5APR.23A 

5APR.235 

5APR.236 

5APR.237 

SAPR.238 

5APR.239 

5APR.240 

5APR.241 

5 APR ,242 

5APR.243 

5APR.244 

5APR.245 

SAPR.246 

5APR.2A7 
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o r» n r> r* 


SLPN = 0. 

CALL CURV1 (LPU*TS*ZZS»SLP1 *SLPN*ZR*TEMP*SIGMA) 

IT = 1 

DO 118 L=1 »LPU 
T = TS(L) 

DDXtL) = CURvD (T*LPU*TS *XXS*XR*5XGMA» IT) 

DOZ(L) - CURV0(T*LPU*T5*ZZS*ZR*SIGMA*IT) 

IJ = gj 

118 DDxll) s (DOX (2) /DS < 1 > ♦ DOX (2) /OS (2) - CDX <3> /DS (2) >*DS ( 1 ) 
ODZU) = (ODZ (2) /OS ( 1 ) 4 DDZ(2)/CS(2) - DDZ(3)/DS(2))*DS<1> 
00 115 L - l *LPU 

XNUM * <XXS<L>**2 4 ZZS <L > **2 ) ** 1 *S 
DENOH * XXS<L>*DDZ<L> - ZZS(L)*ODX<L) 

R(L*NX) a (XNUM/DEN0M)*S 
115 CONTINUE 

WRITE (6.704) 

WRITE (6*701 > 

WRITE(6*702) 

WRITE (6*703) <XK(L)*ZML) *R <L *NX ) *L=1 * LPU) 

WRITE (6*704) 

1 1 A CONTINUE 
120 CONTINUE 

500 FORMAT (1415) 

501 FORMAT (7F1 0.0) 

601 FORMAT (lHO*lOF10. 5) 

602 FORMAT (lHO »40X**A IRFOIL GEOMETRY*/) 

603 FORMAT (1HO*AOX**COMPONFNT «**I3/) 

604 FORMAT < 1 HO * 3f)X . *UPPER SURFACE COORDINATES*/) 

605 FORMAT (1HO*30X*»LOWER SURFACE COORDINATES*/) 

6 06 FORMAT ( 1 HO « 20 X » * INPUT * *45X * *LOFTE 0*/ ) 

607 FORMAT <1HQ*5X*F10.5*IOX*F10.5»20X*F10.5*10X*F10. 5) 

608 FORMAT (IHO*lCX**X-IN**; 6X * *Z- IN* * 26X * *X-OUT * ♦ 1 5X ♦ *Z-OUT*/ ) 

701 FORMAT (1HO*40X*«PAOIUS OF CURVATURE ON FLAP UPPER SURFACE*/) 

702 FORMAT U HO * 1 OX * *X-COORO* J4X *Z-COORD* 10X *RADIUS*/) 

703 FORMAT (lHO *5X *F1 0 .5 * 1 2X *F 1 0 . 5 * 8X * E 1 2 • A) 

704 FORMAT <IN0/1hO*1SX*100(1H*)//) 

RETURN 

ENO 
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5APR.255 
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5APR.258 

5 APR. 259 

5APR.260 
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5APR.263 

5APR.264 

5 APR. 265 

5APR.266 

5APR.267 

5APR.260 

5APR.269 
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5 APR .271 

5APR.272 

5APR.273 
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5 APR .275 

5APR.276 

5APR.277 
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SUBROUTINE ROT AN ( X ♦ Z t TH ♦ XO . ZO *OX ,OZ * XX * ZZ) 


INPUT COORDINATES 

FLAP OR SLAT OEFLECTION ANLGE - RAOIANS 
PIVOT POINT (INPUT COORDINATES) 
TRANSLATION TO -MAIN AIRFOIL COORDINATES 
OUTPUT COORDINATES 


X*Z 
TH 

XO*ZO 
DX*DZ 
XX*ZZ 
XB = X-XO 

ZB = Z-ZO 

XB1 = XB*C0S (TH) ♦ ZB*SIN(TH) 

ZB1 s XB*<-1)«SIMTH> ♦ ZB*COS(TH> 

XX a XB 1 * XO ♦ CX 

ZZ = ZB 1 4 ZO ♦ CZ 

RETURN 

ENO 


5APR.289 

5APR.290 

(CLOCKWISE P0SITIV5APR.291 
5APR.292 
5APR.293 
5 APR .294 
5APR.295 
SAPR.296 
5APR.297 
5APR.298 
5APR.299 
5APR.300 
5APR.301 
5APR.302 


I 
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c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

10 


c 

c 

c 

20 

30 


c 

c 

c 

c 


SUBROUTINE KURV1 <N , X , Y ♦ SLP 1 , SLPN , XP , YP , TEMP, S,S IGMA) 

THIS SUBROUTINE DETERMINES THE PARAMETERS NECESSl ™ 
COMPUTE A SPLINE UNDER TENSION PASSING ^SEQUENCE 

OF PAIRS (X { 1 ) ,Y { 1 ))*•••♦ (X <N) ,Y <N> ) IN THE PLANE* THE 
SLOPES AT THE TWO ENOS OF THE CURVE MAY BE SPECIFIED OR 
OMITTED. FOR ACTUAL COMPUTATION OF POINTS ON THE CURVE IT 
IS NECESSARY TO CALL Th£ SUBROUTINE KURV2, 

COHMON/DZDX/ DX(30> »DY(30) ,DS(3Q> 

INTEGER N v 

REAL X(N) ,Y(N) ,XP (N) *YP<N) »TEHP(N) *S*SIGMA 

DEGRADE. 1415926535897932/180. 

NM1=N-1 


NP 1 -N ♦ 1 

0ELXI=X{2)-X<1> 

DELYl=Y(2>-Y(l> 

DELS1=5QRT(0ELX1«DELX1 

0X1=0€LXI/0ELSI 

0Y1=0ELY1/DELS1 


«OELYl*DELYl> 


DETERMINE SLOPES IF NECESSARY 

IF (S1GMA.LT .0.) GO TO 70 
SLPPI=SLP1*0£GRAC , 

SLPPN=SLPN»DFGRAC 

SET UP RIGHT HANO SIDES OF TRIOIAGONAL LINEAR SYSTEM FOR XP 
ANO YP 

XPU)=0X1-C05(SLPP1) 

YPU)=0YI-SIN(SLPP1> 

TEMPU )=0ELS1 
OS(l> = TEMP ( 1 ) 

S=D£LS1 

DX ( 1 ) = COS ( SLPP 1 > 

OYIU = S IN < SLPP 1 ) 

IF (N.E0.2) GO TC 30 
00 20 1 = 2, NM1 
OELX2 = X (1*1 )-XU) 

D£LY2 = Y(I*1)-YU> 

OELS2=SORT(OELX2«OELX2*DELY2*DELY2) 

DX2=OELX2/DELS2 
0Y2=0ELY2/CELS2 
XP(I)=OX2-OXl 
YPU)=0Y2-DY1 
TEMP ( I ) =0ELS2 
OSU) = TEMP(1> 

OELX 1 =0ELX2 

OELYl=OELY2 

DELS l =DELS2 

A = 0Y2«0X1/0X2 

B = OY1«OX2/OX1 

oxm = * 50 ( 0 X 1 ♦ 0X2) 

OY(I) * ,5*<A ♦ B) 

0X1 =0X2 
DY1=DY2 

ACCUMULATE POLYGONAL ARCLENGTH 
S=S*0ELS1 

XP <N) =COS (SLPPN)-DXl 
YP(N)=SIN(SLPPN)-DYl 
OX (N ) = COS(SLPPN) 

OY(N) * SIN(SLPPN) 

OS(N) = DS(N-l) • _ 

OENORMALIZE TENSION FACTOR 

SIGMAP=ABS(SlGMA) *FLOAT (N-l)/S 
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REPRODUCI ’.r iTY OP THE 
ORIGINAL PAGii IS POOR 


c PERFORM FORWARD ELIMINATION ON TRIDIAGONAL SYSTEM 

C 

DELS=SIGMAP*TEMP<1) 

EXPS=EXP<0EL5) 

SINHS=.5MEXpS-1./EXPS> 

5 INH IN= 1 ./(TEMPI!) •SINKS) 

DIAGl=SlNHIN* (DELS 0 .5* (EXPS* l ./EXPS) -SINHS) 

0IAG1N=1 ./CUGl 
XPU)=DIAGIN*XP() ) 

YPU >=DIAGIN*YP<1) 

SPO I AG = S INH IN* (SINHS-DElS) 

TEMP <1 ) =D l AGlN*SPOI AG 
IF (N.EO.2) GO TO 50 
00 40 1=2 ♦ NM l 
DELS = SIGMApoTEMPU) 

EXPS = EXP < DELS ) 

SINHS=.5* < EXPS- 1. /EXPS) 

SINHIN=l , / (TFMP i I ) »SINH3) 

DIAG2=SINHIN* <0EL$M.5MEXPS*1./EXPS>> -SINUS) 

D I AGIN= 1 • / < 0 T AG1 *D I AG2-SPD I AG*TEMP ( I - 1 1 > 

XP ( I ) =0 I AGIN* <XP (I >-SPDlAG*XP <1-1 ) ) 

YP (I )=DI AGIN* (YP ( I>-SPDi AG*YP ( 1-1 ) ) 

SPDIAG = SINHIN* ( S 1 NHS-DEt-S ) 

TEMP ( I) =DIAGIN*SPDIAG 
40 D I AG 1 =0 I AG2 

SO DIAGIN=J * / <0 1 AG 1 -SPO I AG *T EMP (NM 1 ) ) 

XP<N)=01AGIN* (XP<N)-5PDIAG*XP(NM1) ) 

YP<N>=DI AGIN* (YP(N)-SPOIAG°YP(NMI) ) - 

C 

C PERFORM BACK SUBSTITUTION 

C 

00 60 I = 2tN 
IBAK=NP1-I 

XP( IBAK)*XP( IBAK) -TEMP ( IBAK ) *XP ( I8AK*1 ) 

60 YP (IBAK )«YP UBAK) -TEMP < IBAK > *YP ( I0AK*1 ) 

RETURN 

70 IF (N.EQ.2) CO TO 80 

C IF NO SLOPES ARE GIVEN* USE SECOND ORDER INTERPOLATION ON 

C INPUT DATA FOR SLOPES AT ENDPOINTS 

DEL S2 = 5QRT < < X ( 3 > - X < 2> ) • >2* < Y 1 3 > -Y <2 > > **2) 
DELS12=0EL$1+DELS2 ... 

Cl=- JOELS 12 *DELS1 > /DELS 2 2/0ELS1 
C2=0ELS1 2/DELS 1/DELS2 
C3-“0 ELSI/DElS12/DELS2 . 

SX = C1*X (1 ) ♦C2 tf X<2)-*C3°X(3) 

SY=C1*Y U > *C2*Y (2) *C3«Y (3) 

SLPP1=ATAN2(SY,SX> 

DELNM I = SORT < ( X ( N- 2 ) -X (M 1 ) > **2 * < Y (N-2 ) -Y (NM 1 ) ) **2 ) 

DEL N= SORT < <X <NM1 ) -X <N) ) **2* <Y <NH1 )-Y (N) >»* 2 ) 

oelnn=delnmi*oeln 

C1=(DELNN*0ElN)/CELNN/DELN 

C2=-DELNN/DELN/DELNM1 

C3*DELN/DELNN/0ELNM1 

SX=C3*X (N-2) *C2*X <NM1)*C1°X(N) - 

SYsC3*Y<N-2)*C2*Y<NMI)*Cl*Y(N> 

SLPPN=ATAN2 (SY*SX) 

GO TO 10 

C IF ONLY TWO POINTS AND NO SLOPES ARE GIVEN* USE STRAIGHT 

C LINE SEGMENT FOR CURVE 

C 

•80 XP(1)=0. 

XP ( 2) =0 * 

YP(1)=0. 

YP (2) *0 * 

RETURN 

END 


5 APR. 373 
5APR.374 
5APR.375 
5APR.376 
5APR.377 
5 APR .378 
5 APR *379 
5APR.380 
5APR.381 
5APR.302 
5 APR* 383 
5 APR « 384 
5 APR* 385 
5APR.306 
SAPR.387 
SAPR.388 
5 APR *389 
5APR.390 
5APR.391 
5APR.392 
5APR.393 
5APR.394 
5APR.395 
SAPR.3R6 
5APR.397 
SAPR ,398 
SAPR. 399 
5APR.400 
5APR.401 
SAPR.402 
5 APR ,403 
SAPR. 404 
SAPR. 405 
SAPR. 406 
5APR.407 
SAPR. 408 
SAPR. 409 
SAPR. 410 
5APR.41 1 
5APR.412 
SAPR. 413 
SAPR. 414 
SAPR. 415 
SAPR. 416 
SAPR, 417 
5APR.418 
5 APR .4 1 9 
5APR.420 
5APR.421 
SAPR, 422 
SAPR. 423 
5APR.424 
SAPR. 425 
SAPR. 426 
SAPR. 427 
5 APR .428 
5APR.429 
5 APR .430 
5APR.431 
SAPR. 432 
SAPR. 433 
5 APR .434 
SAPR. 435 
SAPR. 436 
5APR.437 
5APR.436 
SAPR. 439 
SAPR. 440 
SAPR. 441 
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SUBROUTINE KURV2C (T *XS*YS*N*X*Y*XP*YP*S*S!GMA) 

INTEGER N „ 4 

REAL T ♦XS*Y5»X (N) » Y IN } « XP IN ) »YP (N > * S *S IGM A 

C 

C OENORMALIZE SIGMA • 

C 

SIGMAP=ABS<SIGMA)«FL0A7 IN-D/S 

C STRETCH UNIT INTERVAL INTO ARCLENGTH DISTANCE. 

C 

TN=»ABS(T*S) 

c FOR NEGATIVE T START SEARCH WHERE PREVIOUSLY TERMINATED* 

C OTHERWISE START FROM BEGINNING 

C 

IF (T.LT.O.) GO TO 10 

11*2 

XS*X<1) 

YSaYtl) 

SUM=0. 

IF (T .LE.Q. > RETURN 
10 CONTINUE 

C 

C DETERMINE INTO WHICH SEGMENT TN IS MAPPED 

C 

00 20 I=I1*N 
DELX-XII)“X< I-U 
OELY = Y m-Y(T-l ) 

DEL S = SORT (OELX«OELX*DEL f*DELY> 

IF <SUM*OELS-TN) 20*30*30 
20 $UH=SUM*DELS 

C IF ABS1T) IS GREATER THAN l.» RETURN TERMINAL POINT ON 

C CURVE 

C 

X S -X (N ) 

YS=Y(N> 

RETURN 

C 

c SET UP ANO PERFORM INTERPOLATION 

C 

30 DELl=TN-SUM 

OEL2=OELS-DEl1 

EXPS1-EXP(SIGMAP*0EL1) 

COSHD1 = • 5 0 (EXPS I * l./EXPSI) 

EXP5=EXP(5IGVAP S C£L2> 

C0SH02 * .5* (EXPS ♦ 1,/^XPS) 

EXPS=EXPS1«EXPS 

SINHS = .5MEXPS-1 ,/EXPSl'SIGMAP 

XS - ( X P I I > *COSHC 1*XP ( 1”1 ) °C0SHD2 > /SINKS ♦ 

1 < (X( I)-XP(I) )-(X<I-l >-XP(I-l> ) ) /CELS 
YS = ( YP ( 1 ) *COSHC 1 -YP U-l > *COSHC2 > /SINKS ♦ 

1(|Y( I >-YP< I ) )-<YU-l)-YPU-l) > I /DELS 

ii = i 

RETURN 

END 


5APR.4A3 
5 APR .444 
5APR.445 
SAPR .446 
5APR.447 
5 APR • 44 8 
SAPR. 449 
5 APR .450 
SAPR. 451 
5 APR .452 
5APR.453 
5APR.454 
5 APR « 455 
5 APR »456 
SAPR. 457 
5APR.458 
5APR.AS9 
5APR.460 
5APR.461 
SAPR. 462 
5 APR ,463 
SAPR. 464 
5APR.46S 
SAPR, 466 
SAPR. 467 
SAPR. 468 
5APR.469 
SAPR. 470 
5APR.471 
5APR.472 
5 APR • 47 3 
SAPR *474 
5APR.475 
5 APR ,476 
SAPR. 477 
5APR.47S 
5APR.479 
SAPR. 480 
SAPR. 481 
5APR.482 
5APR.483 
SAPR. 484 
SAPR. 405 
SAPR. 486 
5APR.407 
5APR.488 
5 APR .489 
SAPR, 490 
5APR.491 
SAPR. 492 
SAPR. 493 
SAPR. 494 
SAPR, 495 
5APR.496 
SAPR. 497 
SAPR. 498 
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SUBROUTINE CURV1 (N * X « Y ; SLP1 tSLPN * YP * TEMP « S IGMA ) 

C THIS SUBROUTINE DETERMINES THE PARAMETERS NECESSARY TO 

C COMPUTE AN INTEPPOLATORY SPLINE UNDER TENSION THROUGH 

C A SEQUENCE OF FUNCTIONAL VALUES. THE SLOPES AT THE TWO 

C ENOS OF THE CURVE MAY BE SPECIFIED OR OMITTED. FOR ACTUAL 

C COMPUTATION OF POINTS ON THE CURVE IT IS NECESSARY TO CALL 

C THE FUNCTION CURV2 • 

INTEGER N 

REAL X (N) »Y <N) »SLPI *SLPN*YP (N ) »TEMP (N ) »$IGMA 

NM l=N-l 

NP1-NM 

0ELX1=X (2>-X(l) 

DXls(Y(2)-Y<l ) I/CELXI 
C 

C DETERMINE SLOPES IF NECESSARY 

C 

IF (SlGMA.LT *0.) GO TO SO 
SLPP I =SLP I 
SLPPN=SLPN 
C 

C DENORHALIZE TENSION FACTOR 

C 

10 SIGMAP=A8S (SIGMA) *FLOAT ( N-l ) / < X (N ) -X ( 1) ) 

C SET UP RIGHT HAND SIDE AND TR IDI AGONAL SYSTEM FOR YP AND 

C PERFORM FORWARD ELIMINATION 

C 

DELS=S1GMAP*DELX1 « 

EXPS=EXP (DELS) 

SINHS=.S° (EXPS-1 ,/EXPS> 

SINHIN-1 ./ (DFLX1«SINHS) 

OIAG1 =SINHIN« <DELS*.5«MEXPSM ,/£XPS > -SINHS ) 

DIAGIN-1 ./OlAGI 

YP < 1 ) =01 AGIN* (OXl-SLPPl ) 

SPOIAG=StNhlNMSINHS-OELS> 

TEMP{1>=DIAGIN*SPDIAG 
IF (N.EQ.2) GO TO 30 
00 20 I = 2 *NM 1 
DELX2=X ( 1*1 )-X(I) 

0X2= ( Y ( I ♦ 1 > “Y ( l ) I/OELX? 

0ELS=SIGMAP»0ELX2 

EXPS=EXP(OELS) 

SINHS=.5 a (6XPS-1 ./EXPS) 

SINHIN=1 ./ (DPLX2« SINHS) 

DIAG2=SINHIN<*{DELS*<.SMEXPS*r./EXP5>>-SlNMS> 

DIAGIN=1 ./ <DIAG1+0IAG2-5PDIAG°TEPP(I*1> ) 

YP ( I) =01 AGIN»(DX2~0X1-SP0IAG«YP ( 1“1 ) ) 

SPDIAG=SINHlN« <SINHS-0Eu5) 

TEMP (1 )=0IAG1N*SP0IAG 
0X1 =0X2 

20 DIAG1=DIAG2 

30 0IAG1N*1./<0IAG1-SPDIAG*TEMP(NMI> I ; 

YP<N)=DIAGIN« (SLPPN-OX2-SPOIAG«YP (NH1 ) ) 

C 

C PERFORM BACK SUBSTITUTION 

C 

DO AO 1 -2 * N 
I BAK=NP 1 • I 

4,0 YP(IBAK)=YP( IBAK>-TEMP(IBAK)«YP(IBAK»1) 

RETURN 

50 IF (N*EQ.2> GO TO 60 

C IF NO DERIVATIVES ARE GIVEN USE SECOND ORDER POLYNOMIAL 

C INTERPOLATION ON INPUT OAT A FOR VALUES AT ENDPOINTS* 

C 

DELX2 = XO)-X(2) 

0ELXI2=X (3)-X (1) 

C1--(DELX12*DELX1 ) /DELXI2/DELX1 
C2=DELX12/0ELX1/CELX2 


5APR.500 
5 APR .50 1 
5 APR .502 
5APR.503 
5 APR .50 A 
5APR.505 
5APR.506 
SAPR .50 7 
5 APR .508 
5 APR *509 
5APR.510 
5APR.511 
5APR.512 
5 APR *5 1 3 
5APR.51A 
5 APR .5 1 5 
5 APR ,5 1 6 
SAPR. 517 
SAPR .5 1 8 
SAPR. 519 
5APR.520 
5 APR .52 I 
SAPR. 522 
5APR *523 
5APR.52A 
5APR.525 
SAPR. 526 
SAPR. 527 
5 APR .528 
5 APR *529 
5APR.530 
SAPR *53 1 
SAPR. 532 
5 APR .533 
5APR.53A 
5APR.535 
5APR.536 
5 APR *537 
5 APR «S38 
SAPR *539 
SAPR, 540 
5APR.541 
5APR.5A2 
SAPR. 543 
SAPR. 544 
SAPR. 545 
SAPR. 546 
SAPR. 547 
5APR.548 
5 APR .549 
5APR.550 
5APR.551 
SAPR. 552 
5 APR ,553 
SAPR. 554 
5 APR .555 
5APR.556 
SAPR. 557 
SAPR. 558 
5APR.559 
5APR.560 
SAPR. 561 
SAPR. 562 
SAPR. 563 
5 APR .564 
SAPR *565 
5APR.566 
SAPR, 567 
5 APR .568 
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reproducibility op the 

ORIGINAL PA U POOR 

C3=-DELXl/DElX12/DELX2 
SLPP1=C1°Y<1 ) *C2*Y<2) *C3«Y<31 
DELN=X<N)-X<NMl> 

0ELNMl = X<NMD-X{N-2) 

OELNN-X <N ) -X <N-2> 

Cl=(OELNN*DELN)/DELNN/OtLN 

C2=-0ELNN/DELN/DELNHl 

C3=DELN/OELNN/OElNH} 

SLPPN = C3*>Y(N-2) *C2°Y<NMl> *C1°Y(N) 

GO TO 10 
C 

C IF ONLY TWO POINTS AND NO DERIVATIVES ARE GIVEN* USE 

C STRAIGHT LINE FOR CURVE 

C 

60 YPUI=0. 

YP ( 2 ) =0 • 

RETURN 

END 


5APR.569 
5APR.570 
5APR.571 
5APR.572 
5APR.573 
5APR.574 
5APR.575 
5APR *576 
5APR *577 
5APR*578 
5 APR ,579 
5APR.580 
5APR.501 
5APR.502 
S APR, 583 
5APR,504 
5APR.585 
5 APR«586 


C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


10 

c 

c 

c 

20 


FUNCTION CURVD (T *N*X ,Y*YP, SIGMA, IT ) 

THIS FUNCTION DIFFERENTIATES A CURVE AT A GIVEN POINT 
USING AN INTERPOL ATORY SPLINE UNOER TENSION. THE SUBROUTINE 
INTEGER N» IT 

REAL 7 ,X (NJ * Y (N> .YP (N) *3IGHA 
S = X<N)-XU> 

DENORHALIZE SIGMA 


SIGMAP=ABS(SIGMA)*(N-1)/S 

IF I T *NE * 1 START SEARCH WHERE PREVIOUSLY TERMINATED* 
OTHERWISE START FROM BEGINNING 


IF (IT.EQ.U 11 = 2 


search for Interval 


DO 10 i = 1 l *n 

IF IX(l)-T) 10*10.20 

CONTINUE 

I=N 


SET UP AND PFRFORM INTERPOLATION 


5 APR ,588 

5APR.589 

5APR.590 

5APR.591 

5APR.592 

5APH.593 

5APR ,594 

5 AP R , 595 

5 APR ,596 

5APR.S97 

5 APR ,598 

5 APR , 599 

5APR ,600 

5APR.601 

5APR.602 

5APR,603 

5APR *604 

5APR *605 

5APR.606 

5APR.607 

5 APR , 608 

5APR.609 

5APR.610 

5APR.611 

5APR.612 


OELl=T-X< 1-1) 

0EL2=X(I>«T 
OELS=X (I)-xn-l ) 

EXPS1=EXP<SIGMAP»DEL1> 

C05HD1=.5 o <EXPS1*1./EXP31) 

EXPS=EXP(SIGHAP»CEL2> 

C0SHQ2 = *5* (EX PS* l ./£XPS> 

EXPS=EXPS1°EXPS 

SINHS=.5«<EXPS-1*/EXPS>/SIGMAP 

CU«VD= (YP ( I > *C0SPD1-YP< i~l ) *COSH02> /S INHS* 
1 ( 1-1 ) ) J/DELS 
11 = 1 
RETURN 
END 


5APR.613 
5APR.614 
5APR.615 
5APR.616 
5 APR ,617 
5APR.618 
5APR.619 
5APR.620 
5APR.621 

(<YU)-YP<n)-(YU»n-YP5APR*622 

5APR.623 
5APR ,624 
5APR.625 
5APR.626 
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o o r> r> 


C 

C 

C 

C 


C 


C 

c 

c 


SUBROOT INE SOLVE 


PROGRAM TO SOLVE SYSTEM OF EQUATIONS ANO COMPUTE 
PRESSURES. FORCES ANO MOMENTS 


COMMON /PARAM/ M ACH . ALPHA *REF A #MA T IN ♦ REFC tU IN ,REFX . REf Z t CREF 
COMMON /CPS/ CPS (600) 

COMMON /CL/ CL*CCT.CDF.CDP.DUD<2> *CM _ Uf _- Al nuw(?nftl. 

COMMON /SCR AT/ U 1 600 ) * V i 600 ) ♦ W ( 60 0 ) * A (1 00 * 1 00 > *GW ( 600 ) »DMM<2Q0) 
lXlPC8*lOOI*ZlP(0*lOO)tC?IP<8*lOO) ♦NPP(B) tOUMHYU92> 

COMMON/ XSOLVE/ I SOLVE 

COHHON^/POlNT/^DELTMAOottTHET (600) *CHOR0<600> »QSI8*100> *DUM(400 
1 XU <750) »XPT (600) *ZPT<60i)> 

COMMON /ITR/ 1TR.ITRMAX 
common/kprint/kprint „ 

COMMON /VELCOM/ NPO INT »NP ART ♦ IM AX . EX .PR INT 

COMMON /SEC/ NCMPT,NFLAP.NFP.NC<4).THETE14>.GTU<4>.GTL<4)* 

1 NPU < 4 ) .NPL < 4 ) .ISTG(4) .GTU<4) .QTL < 4 ) *0 IN <26 ) *THKTE <4 ) 

COMMON /SIG/ SIG<?00) ?SiGMAD<200) *SIGMA<8»100) 

COMMON/GAMM/GA* 0(600) 


SOLVE. 2 
SOLVE. 3 
SOLVE. 4 
SOLVE. 5 
SOLVE. 6 
SOLVE. 7 
SOLVE. 8 
SOLVE. <5 
SOLVE. 10 
SOLVE.il 
SOLVE. 12 
SOLVE. 13 
) , SOLVE. 14 
SOLVE. 15 
SOLVE. 16 
SOLVE. 17 
SOLVE. 18 
SOLVE. 19 
SOLVE. 20 
SOLVE. 21 
SOLVE. 22 
SOLVE. 23 


01 MENS ION UA (600) »GA (600) *WA (600) *CP < 600 ) «N S <600 > *N8 (600 ) * 
1NW < 600 ) .NT <600) ♦ AS ( 1 00 ) « AT <2) 

DIMENSION CPU <1 00 ) *CPL OOO) 

dimension usooo) .wsnooi 

EQUIVALENCE (UAt A ) * (WA.AU201 > ) ♦ <CPt AU801) ) * 

1 ( NS . A ( 24 0 1 ) ) * (NW.U) » <NB .V) » (NT.W) * (AS? A <300 1 > ) 

REAL MACHtNB .NW.NTtNS 
INTEGER COMPT »PRINT 

NWlNG=NPOlNT* 

NMAX=60 
PRINT = 3 

EM=MACH - : 

B2 = l .0-EM**EM 
BET A=SQRT <B2) 

RB2=1.0/B2 
REWIND 1 
REWIND 3 
REWIND 8 

ALP=ALPHA/57.295779S 
S INAL = S IN < ALP ) 

COSAL = COS < ALP) 

CALL SORTR 

CALCULATE NORMAL VELOCITIES REQUIRED TO SATISFY BOUNDARY 
CONDITIONS AT WING CONTROL POINTS 


DO 20 1=1 .NPOINT 
TANQEL=TAN (DELTA ( I ) ) 
NWU)=COSAL«TANDEL-SINAL 
K = 0 • • 

ASQ = 0 g 

IFUTR.EO.1) GO TO 20 
00 15 N=1.NCMPT 
DO 14 NSID£=1*2 


12 

14 


K =K ♦ 1 

IF (NS IDE.EQ . I ) Jl=NPU(N) 

IF (NSIDE.EQ.2) JL=NPL<N> 

READ U ) AT(NSIOE) *<AS<U) *J=«1.JL) 

00 12 J=1 ♦ JL - 

ASO = A5Q ♦ AS(J)«GS<K.J> 

CONTINUE 

!f'it2kteimi.fq.o..oh.itr.gt.i) 0NW»AS0.*T(1)»GIUIN) < «T(2>»GIL<NI 
NW < 1) =NW < 1 >-DNW 


SOLVE. 24 
SOLVE. 25 
SOLVE. 26 
SOLVE. 27 
SOLVE. 28 
SOLVE. 29 
SOLVE. 30 
SOLVE. 3i 
SOLVE. 32 
SOLVE. 33 
SOLVE. 34 
SOLVE. 35 
SOLVE. 36 
SOLVE. 37 
SOLVE. 38 
SOLVE. 39 
SOLVE .40 
SOLVE. 41 
SOLVE. 42 
SOLVE. 43 
SOLVE. 44 
SOLVE. 45 
SOLVE. 46 
SOLVE. 47 
SOLVE. 48 
SOLVE. 49 
SOLVE. 50 
SOLVE. 51 
SOLVE. 52 
SOLVE. 53 
SOLVE. 54 
SOLVE. 55 
SOLVE. 56 
SOLVE. 57 
SOLVE. 58 
SOLVE. 59 
SOLVE. 60 
SOLVE. 61 
SOLVE. 62 
SOLVE. 63 
SOLVE. 64 
SOLVE. 65 
SOLVE. 66 
SOLVE. 67 
SOLVE. 68 
SOLVE. 69 
SOLVE. 70 
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nono on o«*» o 


15 CONTINUE 
20 CONTINUE 
REWIND 1 

IF IKPRINT.GT.O) WRITEI6U70) (NW< 1 1 * 1*1 » NWING) 

C 

C SOLVE MATRIX EQUATIONS - DIRECT SOLUTION IF MATRICES 

C LESS THAN 60*60 * ITERATIVE SOLUTION OTHERWISE 

c, 

IF ( ISOLVE .CT .0) GO TO 30 
25 CALL PARTIN 

GO TO 50 " •'* ' 

30 CALL DIAOIN 
CALL ITRATE 
50 CONTINUE 
1=0 
J = 0 

JMAX=0 

00 60 N= 1 »NCMPT 
J2=NC(N) ; 

Jl*J2-l 
I T= J2-2 
jM AX = JMAX * J2 

IF (THKTE(N).FG.O.. OR. ITR. GT.1> GO TO 52 
GTU (N) =GW I IT) 

GTL (N ) =-GW { IT > 

52 CONTINUE . 

00 60 1 1 = 1 » J2 

1 = 1*1 

IF I II .GT. IT) GO TO 55 
J=J*1 

GAII)=0W<J) 

GO TO 60 

55 IFUI.EQ.J1) GA(I)=GTU(N> 

IFIII.EQ.J2) GA<I)«GTL(N> 

60 CONTINUE 

DO 75 1=1 *NP0INT 
UU)=0. 

V(I>=0. 

US(I>=0. 

WSU)=0. 

75 W(I)=0. 

CALCULATE PRESSURES ON WING PANELS 

DO 100 I = 1 *NW ING 
READ 18) (UA I J) tWA I J) .J=l * JMAX) 

DO VO J= 1 * JMAX 

U(I)=U(I) *UA< J)«CA( J)-WA{J>*QIJ)»R82 
W (I)=W(I) *WA ( J)«CA(J>*LMJ>«0(J> 

US I I)=USI I)-WA<J)*Q<J)«R02 
wsm=ws(D *uA(j)*Q{j> 

90 CONTINUE 

AS( n«WSU)-RETA*TAN(OELTA(I>)*USm 
NS( l )=W 1 1 )-BETA«TAN<OELTA (I))*U(I)-AS(I> 
UII)=U<I)*COSAL 
Mil >=W( I)*SINAL 

cpii) = i.o-uu) fl un) - wm«wm 

V ( I ) = 1.0 - GWU)*GW(1) - OU) tt fl<I) 

IF (ITR.GT *1 ) CPU ) = (CPI I ) *CPS < I > ) * .5 
IFU7R.GT.1) CPU> = ,6t>S667*CP(I) ♦ .333333®CPS (I > 
IF (ITR.GT .1) CP(I)=(CP( I)*CPS<I) )°.5 
CPS(I)=CPU) 

100 CONTINUE 

IF(KPRINT.GT.O) WRITE-16* 170) <NS<I ) • I>1 tNWlNG) 

CALCULATE INDEX OF STAGNATION POINT 
AND DETERMINE LIFT OF EACH ELEMENT 

12 = 0 


SOLVE. 71 
SOLVE, 72 
SOLVE. 73 
SOLVE. 74 
SOLVE. 75 
SOLVE. 76 
SOLVE. 77 
SOLVE. 78 
SOLVE. 79 
SOLVE. 00 
SOLVE. 81 
SOLVE. 82 
SOLVE. 83 
SOLVE. 84 
SOLVE. 85 
SOLVE. 86 
SOLVE. 87- 
SOLVE. 00 
SOLVE. 89 
SOLVE. 90 
SOLVE. 91 
SOLVE. 92 
SOLVE. 93 
SOLVE. 94 
SOLVE. 95 
SOLVE. 96 
SOLVE. 97 
SOLVE. 98 
SOLVE. 99 
SOLVE. 100 
SOLVE. 101 
SOLVE. 102 
SOLVE. 103 
SOLVE. 104 
SOLVE. 105 
SOLVE. 106 
SOLVE. 107 
SOLVE. 108 
SOLVE. 109 
SOLVE.llO 
SOLVE. Ill 
SOLVE. 112 
SOLVE. 113 
SOLVE. 1 14 
SOLVE. 115 
SOLVE. 1 16 
SOLVE. 11 7 
S0LVE.ua 
SOLVE. 1 19 
SOLVE, 120 
SOLVE. 121 
SOLVE. 122 
SOLVE. 123 
SOLVE. 124 
SOLVE. 125 
SOLVE. 126 
SOLVE. 127 
SOLVE. 128 
SOLVE. 129 
SOLVE. 130 
SOLVE. 131 
SOLVE. 132 
SOLVE. 133 
SOLVE. 134 
SOLVE. 135 
SOLVE. 136 
SOLVE. 137 
SOLVE » 1 38 
SOLVE. 139 
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f 


c 


c 

c 


IT = 0 
1 = 0 

IX = 0 
K = 0 

DO 120 N=1»NCMPT 

K=K*1 

J2 = NC <N) 

J1=J2-1 

JN=NPU(N) . 

1 1 = l T* 1 
IN=I2 

12 = IX * J2 “ 2 . 

IX * 12 

IT=U2-2 
IL= 1 1 ♦ JN-1 
ISTAG=I1 
UMX = 0. 

J = 0 

oo no 1 1 =i ♦ i t 

i*i*i ' 

j= j* l 

IFU.LT. IL) CPU(J)=CPU> 
IFU.GE.IL) CPLfJ-JN*n-CP(I) 
IFU.EQ.12) GO TG 110 
IF (CPU ) .LT * 0 • ) GO TO UO 
IF (I.EQ.IL) GO TO 115 , 

UMX5 = UMX 

UHX = AMAX1 (uMX.CP U ) > 
lF(UHX.NE.UMXS) ISTAG = 1 
GO TO 110 


115 CONTINUE 
UMX 5 = UHX 

UMX = AMAX1 (UHX.CPU)) 

IF (UMX.NE .UMXS) ISTAG = I 
110 CONTINUE 

ISTG(N) = ISTAG 

CPUT=1.0-GTU(N>«GTU(N)-QTU(N)*QTU<N) 

CPLT= 1 .0-6TL (N) *CTL <N > ' QTL(N)*QTL <N) 

• CALL LIFT (N»CPU*CPL»REFX*R£FZtCREF*COSAL*CL*CM) 


CLX IN) = CL 

CHX (N > = CM 

IF (N.LE • 1 ) GO TO 116 

CLX(N) = CLX (N) - CLXX ' 

CMX(N> = CMX(N) - CHXX 
116 CONTINUE 
CLXX = CL 

FILL XIP^ZIP.CPIP ARRAYS FOR UPPER ANO LOWER SURFACES 


20 


35 

AO 


ON WING. MACH=F5.3 


CALL FILL (N.K.IN) 

CONTINUE 
REWIND 8 

CALL SECOND (TIME) 

WRITE (6.300) TIME 

FORMAT (1H0.20HPRESSURE COEFFICIENT) 

FORMATUHl.38HVELOCITtES AND PRESSURE 
1 ,3X .6HALPHA=F7.3 //> 

rnRMAT 1 1 X *5HP ANEL U OX .6HV0RTEX . 10X *5HAX I AL* 11 X.7HL ATERAL. 1 OX , 
18 HVERTICALUOX. 8 FPRES 5 URE/ 2 X, 3 HNC.nOX. 8 HSTRENGTH.ex, 8 HVELOCITY. 
2<3X,8t-VEL0CITY.9X,aHVEL0CITY.gX.llHC0EFFICIE T//) 

00 FORMAT ( 1H0. IA.7X.F10.5.5X.F10 .5*5 (7X.F10.5) ^ 

00 FORMAT (1H0.6HT IME = F10.5) 

00 FORMAT (lHO. 15) 

01 FORMAT (1H »6hIST AG* ♦ 13* 

END 
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SOLVE. 141 
SOLVE. 142 
SOLVE. 143 
SOLVE. 144 
SOLVE. 145 
SOLVE. 146 
SOLVE. 147 
SOLVE. 14B 
SOLVE. 149 
SOLVE. 150 
SOLVE. 151 
SOLVE. 152 
SOLVE, 153 
SOLVE, 154 
SOLVE. 155 
SOLVE. 156 
SOLVE. 157 
SOLVE. 158 
SOLVE. 159 
SOLVE. 160 
SOLVE. 161 
SOLVE. 162 
SOLVE. 163 
SOLVE. 164 
SOLVE. 165 
SOLVE. 166 
SOLVE. 167 
SOLVE. 168 
SOLVE. 169 
SOLVE. 170 
SOLVE. 171 
SOLVE. 172 
SOLVE. 173 
SOLVE. 174 
SOLVE. 175 
SOLVE. 176 
SOLVE. 177 
SOLVE. 178 
SOLVE. 179 
SOLVE. 180 
SOLVE. 161 
SOLVE. 182 
SOLVE. 183 
SOLVE. 184 
SOLVE. 185 
SOLVE. 186 
SOLVE. 107 
SOLVE » 1 88 
SOLVE. 189 
SOLVE. 190 
SOLVE. 191 
SOLVE. 192 
SOLVE. 193 
SOLVE. 194 
SOLVE. 195 
SOLVE. 196 
SOLVE. 197 
SOLVE. 198 
SOLVE. 199 
SOLVE. 200 
SOLVE. 201 
SOLVE. 202 
SOLVE. 203 
SOLVE. 204 
SOLVE. 205 
SOLVE. 206 
SOLVE, 207 
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GO 70 10 


10 


SUBROUTINE SORTR 1 

SUBROUTINE TO REORDER SOURCE STRENGTH ARRAYS 
COMMON /ITR/ ITR ♦ ITRMAX 

COMMON /SEG/ NCMPT *NFLAP»NFP.NC (4) *THETE<4) *GTU<4) tGTL <4) ♦ 

1NPU<4> *NPL<4) .I$TG<4> .QTU(4>.0TL<4> .DIN (26) .THKTE (4) 

COMMON /SIG/ SIG<200) ♦SIGMAD(200)*SIGMA(B,JOO) nuui*nni. 

COMMON /SCR AT/ U<600)*Vt600>.tf<60Q)»A(100*100).GW(600> ,DMM <200) ♦ 
!XlP<8*100)*Z!P<8*100).CPIP<8*100>*NPP<B)tOUMMY<192) 

COMMON /POINT/ DELTA <60 0) vTHET (600 ) .CHORD < 600 ) , OS < 8 * 100 > .DUM (400 > 
1 XU < 750 ) .XP I <600> *ZPT <600) 

COMMON/GAMH/GA (600) *0 <600) 

J = 0 
K = 0 
JS = 0 

DO 100 n=i*ncmpt 

TE=»THET£(N) 

COSTsCOS (T£) 

RS INT = 0 * 

IF(TE.NE.0*> RSINTsl.O/SINITE) 

J2=NC <N ) * JS 
JS=JS+J2 
. Jl = J2**l 
jT=J2-2 
IF < ITR *GT • 1 ) 

DO S 1 a l * J2 
J=J*1 
5 0<J)=0. 

GTU <N) =0 • 

' gtl<nj*o. 

OTU (N ) =0 • 

QTL <N ) - 0 • 

GO TO 100 
K=K*l 
Kl=K*l 
LU=NPU(N) ' 

LL3NPL (N) 

IF <N*EO • 1 ) 

IF (N.EQ.2) 

IF (N.EQ • 3) 

IF (N.EQ.4) 

IF <NPP(K) .LE.LU) 

L I s 1 ST AG-LU* 1 
DO 20 L=1 *LU 
IF(L.LT.LU) J3J*1 
Ll=L*LI 

QS ( K «L ) -S IGM A (K.L1 > 

IF(L.LT.LU) 0 ( J) *QS <K *L ) 

CONTINUE 
DO 40 L=1*LL 
IF(L.GT.LI»1) GO TO 30 
IF(L.GT.I) J=J*1 
L2*L I ♦2-L 

QS <K 1 *L ) = SIGMA <K »L2) 

IF <L *GT • 1 ) Q < J)-0S <K1*L> 

GO TO 40 
L3*L-LI 

J = J* 1 

OS ( K 1 *L ) = Slr,MA<Kl,L3) 

Q(J)-QStKlfL) 

CONTINUE 

GO TO 95 1 

IF <NPP<K) .LT.LU) GO TO 70 
DO 60 L=1»LU 
IF(L. LT.LU) J=J*1 
QS(K.L)=5IGMA<K*L) 

IF(L. LT.LU) Q<J)=OS<K»L> 


I5TAG = ISTG<N) 

ISTAG = ISTG <N ) -NC <N-1 ) +2 
ISTAG=ISTG(N)-NC(N-2)-NC<N-l ) #4 
ISTAG = ISTG<N)-NC(N-3>-NC<N-2)-NC<N- 
GO TO GO 


1 ) *6 


20 


30 


40 


50 


SORTR. 2 
SORTR, 3 
SORTR. 4 
SORTR. 5 
SORTR. 6 
SORTR. 7 
SORTR. 8 
SORTR. 9 
SORTR. 10 
SORTR. 11 
, SORTR. 12 
SORTR. 13 
SORTR. 14 
SORTR. 15 
SORTR. 16 
SORTR. 17 
SORTR. 18 
SORTR. 19 
SORTR. 20 
SORTR. 21 
SORTR. 22 
SORTR. 23 
SORTR. 24 
SORTR. 25 
SORTR. 26 
SORTR. 27 
SORTR. 28 
SORTR. 29 
50RTR.30 
SORTR. 31 
SORTR. 32 
SORTR .33 
SORTR ,34 
SORTR. 35 
SORTR. 36 
SORTR. 37 
SORTR. 38 
SORTR. 39 
SORTR, 40 
SORTR. 41 
SORTR. 42 
SORTR. 43 
SORTR. 44 
SORTR. 45 
SORTR. 46 
SORTR. 47 
SORTR. 48 
SORTR. 49 
SORTR. 50 
SORTR. 51 
SORTR. 52 
SORTR. 53 
SORTR. 54 
SORTR, 55 
SORTR. 56 
SORTR. 57 
SORTR. 58 
SORTR. 59 
SORTR. 60 
SORTR. 61 
SORTR. 62 
SORTR. 63 
SORTR. 64 
SORTR. 65 
SORTR. 66 
SORTR. 67 
SORTR. 68 
SORTR. 69 
SORTR. 70 
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60 CONTINUE 

00 65 L=1#LL 
IFIL.GT.1) J=J*I 
QS(K1*L)= SIGHA(Kl.L) 

IFIL.GT.1) Q(J)-CS(K1*U 

65 CONTINUE 
GO TO 95 
70 li=lu-npp<k> 

DO 80 L=l*LU 
IFIL.LT.LU) J=J*1 
IF IL.GT *L I ♦ 1 ) GO TO 75 
Ll=LW-L 

QS <K t L)=SIGMA (K1 ill) 

01 J)=QStK*U 
GO TO 80 

75 L?=L-L1 

0S<K*L)=SIGHA(K*L2) 

IFIL.LT.LU) 0 ( J) *QS IK *L > 

80 CONTINUE 

DO 90 L K 1 »LL 
IF (L*G7 • 1 ) J=J*1 
L3=LI»L 

QS<K1,L> 3 5 IGMA (K 1 «L3) 

IFIL.GT.il Q ( J) *QS (Kl *L ) 

90 CONTINUE 
95 CONTINUE 

Q I Jl ) =QS (K *LU> 

Q(J2)=QSIKI*LL) 

Q(JT)sO. 

JJ=J 
J = J*2 

GTUIN)=(-QS<k1»LL)*QS(K»LU)«COST)»RSINT 
GTL IN) = <«QS IK»LU) *QS(KI *LL) 6 COST ) *RSINT 
QTU(N)=Q(J1> 

QTL IN > =Q I J2 ) 

♦ 1 

IFITHKTE(N) .EQ.O..OR.ITR.GT.1) GO TO 100 
GTU IN ) = 0 • 

GTL<N)=0, 

100 CONTINUE 

600 FORMATUH ♦ 1 0F1 0 .5) 

return 

END 


SORTR.71 
SORTR, 72 
SORTR. 73 
SORTR. 7A 
SORTR. 75 
S0RTR.76 
SOHTR.77 
SORTR.70 
S0RTR.79 
S0RTR.80 
S0RTR.81 
SORTR. 82 
S0RTR.83 
SORTR. 8A 
S0RTR.85 
SORTR.86 
SORTR.87 
S0RTR.8B 
S0PTR.89 
S0RTR.90 
S0RTR.91 
SORTR, 92 
' S0RTR.93 
SORTR. 9A 
50RTR.95 
SORTR, 96 
SORTR.97 
S0RTR.98 
S0RTR.99 
S0RTR.100 
SORTR. 101 
S0RTR.102 
SORTR. 103 
SORTR. 1 OA 
SORTR. 105 
SORTR. 106 
SORTR. 107 
SORTR ,100 
SORTR. 109 
SORTR. 110 
SORTR. Ill 
SORTR. 112 
SORTR, 113 


SU8R0UTINE F ILL IN f KK * IN I 

FILL XIP»ZIP,CPIP ARRAYS FOR UPPER AND LOWER SURFACES 

COMMON /SEG/ NCMPT tNFLAP *NFP tNC I A ) .THETEIA) *GTU(A) *GTL<A) ♦ 

1 NPU (A) tNPLIA) »ISTGIA) * QTU I A > tQTL I A > 

COMMON /SCR AT/ U < 600 ) ♦ V 1 600 ) ♦ W <600 ) ♦ A <1 00* 1 00 ) *GW 1 600 ) ♦DHHI200)9 
lXIP(8»IOO)9ZlP<e*100) .CPIPISf 100) *NPPI8) *PAV(100) ♦ DUMMY (92 ) 

COMMON /POINT/ DELTAI600) *THET 1600) tCHORD<600) ,GS (6» 100) *DUMIA00) 
1XUI30*A) » XL I TO t A ) ,2UI30*A)*ZLI30«A)»D1M(270)*XPT <600 )♦ ZPT 1600) 
DIMENSION CP (600) 

EQUIVALENCE <CP*M18(H>) 

K=KK 

ISTAG=ISTG(N)-IN 

LU=NPU(N)-1 

LTsNCIN) 

L1=ISTAG-LU 

JT=LT-2*1N 

IFILI.LE.O) GO TO 120 
DO 105 L= 1 *LU 


FILL. 2 
FILL. 3 
FILL. A 
FILL, 5 
FILL. 6 
FILL. 7 
FILL. 8 
FILL. 9 
vF ILL. 10 
F ILL. 11 
FILL. 12 
FILL. 13 
F ILL. 1 A 
FILL. 15 
FILL. 16 
FILL. 17 
FILL. 18 
FILL. 19 
FILL. 20 
FILL. 21 
FILL. 22 
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L l a L I *L 
LN-L*IN 

XIP(K.L1>=XPT(LN) 

ZlP(KfLl)=ZPT(LN) 

105 CPIPCKtLl )=CP(LN) 

LPU=ISTAG»1 
NPP ( K ) =LPU 
KUP = NPU(N> 

XIP(K*LPU) 3 XU (KUP»N> 

Z1P(K*LPU) = ZU(KUP»N> 

L=LU*1*IN 

CP IP (K.LPU >=CP (L-l ) ♦ <CP <L-l >**CP (L-2M • (XPT ( JT)-XpT (L-l> )/ 

1 (XPT (L-l)-XPT (L-2 > ) 

DO 110 L=1.LT 
L2=ISTA&n-LnN 
XlP(KtL)=XPT{L2) ; 

ZIP (K*L)=ZPT (L2) 

UO CPIP <K.L>=CP(L2> : 

K=K ♦ 1 

lpl=lt-i-i$tag 

NPP(K)=LPL 
00 115 L=1»LPL 
L3=ISTAG*L-1*IN 
XJP(K,L )=XPT(L3) 
zip<k»u = zpt am 
115 CPIP<K*L)=CPU3> 

L=L3 

cpip <k, lpl)=cp (L-i >*<cp(L-n-cpa- 2 >>*<xpT<L>-xPT<L-n>/ 

1 <XPT (L-n-XPT(L-2) ) 

K1 = K - 1 

CPlP(KltLPU) = (CPIP <Kl »LPU> ♦ CPIP<K*LPL))®.5 
CPIP (K *LPL ) = CPIP(XnLPU) 

GO 70 160 

120 IF < ISTAG.GT • 1 ) GC TO 135 
00 125 L 3 1 *LU 
LN = L* IN 

XIP(K»D=XP7 (LN> 

ZIP(K*U = ZPT(LN) 

125 CPIP(K»L)=CP<LN) 

LPU=NPU <N) 

NPP (K)sLPU 
KUP = NPU <N > 

XIP(KtLPU) - XU(KIJP.N) 

ZIP(K*UPU) * ZU (KUP »N) 

L=tU*l*IN 

CPIP (KtLPU)-CP(L-l) *(CP(L-1 )-CP (L”2>>®(XPT{JT)-XPT<L-1))/ 
UXP7<L-l>-XP7(L-2>) 


k =k * l : 

LPL-NPL (N) 

NPP (K ) -LPL 
I 1 = I N ♦ 1 

XIP(K*1>=XP7 (II) 

ZIP (K * 1 ) =ZPT (ID 
CP IP (K * 1 ) =CP (ID 
00 130 L~2*LPL 
L3 a L*LU-l+IN 
XIP(K,L)=XP7(L3) 

ZIP (K »L > =2PT (L3> 

130 CPIPIKtU^CPCLa) 

CPIP (K .LPL) *CP <L-1 > ♦ (CP (L-l )-CP(L"2> ) * (XPT (L > -XPT (L-l) >/ 
1 (XPT(L-l)-XPT(L-2) ) 

Kl 3 K - 1 

CPIP(KltLPU) = (CPIP(Kl.LPU) ♦ CPIP<K*LPL) >®*5 
CPIP(K»LPL) = CPIP(KltLPU) 

GO TO 160 
135 CONTINUE 

LU=NPU(N)-ISTAG 

LPU=LU*1 


FILL. 23 
FILL.24 
FILL.2S 
FILL. 26 
F ILL .27 
FILL. 28 
FILL. 29 
FILL. 30 
FILL. 31 
FILL. 32 
F ILL. 33 
FILL. 34 
FILL. 35 
FILL. 36 
F ILL . 37 
FILL. 38 
FILL. 39 
FILL. 40 
FILL. 41 
FILL. 42 
FILL. 43 
FILL. 44 
FILL *45 
FILL. 46 
FILL. 47 
FILL. 40 
FILL. 49 
FILL. 50 
FILL. 51 
FILL. 52 
FILL. 53 
FILL. 54 
FILL. 55 
FILL.56 
FILL. 57 
FILL .50 
F ILL. 59 
FILL. 60 
FILL. 61 
FILL. 62 
FILL. 63 
FILL. 64 
FILL. 65 
FILL. 66 
FILL. 67 
FILL. 60 
FILL. 69 
FILL. 70 
FILL. 71 
FILL. 72 
FILL. 73 
FILL. 74 
FILL. 75 
FILL. 76 
FILL. 77 
FILL, 78 
FILL. 79 
FILL. 00 
FILL. 81 
FILL. 82 
FILL. 03 
FILL.04 
FILL. 85 
FILL. 06 
FILL. 87 
FILL. 80 
FILL. 89 
FILL. 90 
FILL, 91 
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NPP <K)=LPU 
00 140 L=l*LU 
Ll=L*ISTAG-l*IN 
X IP (K »L ) -XPT (LI) 

ZIP <KtL)=ZPT (LI ) : • 

14 0 CPIP{K»L)=CP(L1> 

KUP = NPU(N) 

XIP(K.LPU) - XU(KUPtN) 

ZIPIK»LPU> * ZU<KUP*N) 

CP IP (K »LPU) =*CP(L-1)*<CP(L-1 )-CP (L~2) ) * (XPT ( JT) -XPT (L- 1 > ) / 
1 ( XPT (L-l J-XPT <L-2) > 


K=X*1 


LPL=NPL <N> ♦ISTAG-1 

npp(k>=lpl 

00 145 L- 1 * I ST AG 
L2=ISTAG-L*1 »IN 
XIP (K*L) = XPT (L2> 

ZIP<K*U=ZPT(L2> 

145 CPIP<K,U=CP(L2) 

LI=ISTAG*1 

00 150 L-LI*lPL : 

L 3 a LU*L-l * IN 
XIP (K«L ) =XPT (L3J 
ZIP(K»U=ZPT(L3> 

150 CPIP(K»U=CP(L3) a 

CP^P<K,LPL>=CP(L-l)MCPIL-n-CPa-2))*(XPT(L)-XPT(L-in/ 

1 <XPT<L-1)-XP7 (L-2)) 

K 1 — K ^ 1 

C P 1 P ( K 1 ♦ LPU ) = <CP1P(K1*LPU) * CP1P(K*LPL))**5 
CPIP(K,LPL) = CPIP(K1»LPU) 

160 CONTINUE 
L l =LPU- 1 
L2 3 LPU-2 
K=K-1 


K 1 3 K ♦ 1 

DO 200 L=2*L 1 

200 PAV (L)=.5*(CPIP(K,L-1>*CPIP(K,L)> 

CPIPIKt 1)=*5*<CPIP(K* D >CPIP<Kl.l>) 


210 


250 


220 


CPIP(Kltl)*CPlP(K*l) 

DO 210 L = 2 *L 1 
CPIP(K*L) = PAV(L) 

CONTINUE 

CPIP(K*LPU)=CP1P(K*L1)*(CPIP(K*L1 >-CPIP(K*L2) ) 

1* (XIP (K*LPU)-XIP(KfLl) >/<XIP (K *L1 > -X IP (K »L2 ) ) 
L1=LPL-1 
L2=LPL-2 
. DO 250 L = 2 »L2 

PAV(L)=.5*(CPIP(K1.L>*CPIP<K1 »L*1 >) 

PAV(Ll) - •S*(CPIP<Kl*Ll> ♦ CP(L3>> 

00 220 L-2*Ll 
CPIP<Kl*l> = PAV(L) 

Cp'lPtKl tLPU=CPIP(Kl»Ll ) ♦ (CPIP(K1»L1)-CPIP <K1*L2> > 
l*<XIP(Kl*LPL)-XIP<Kl*Ln )/<XIP(Kl*Ll>-XlP(Kl»L2) ) 


kk=ki 

170 FORMAT UHO»loriO*5) 
RETURN 
■ END 
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F ILL. 120 
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FILL.130 
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FILL. 150 
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SUBROUTINE PaRTIK 


DIRECT MATRIX INVERSION 

COMMON /PARAM/ MACH * ALPI IA *REFA*MAT IN 
' COMMON /SEG/ NCMP T .NFLAP *NFP »NC ( A > * NX (50 ) 

COMMON /VELCOM/ NPO INT ♦ NP ART ♦ I TRM AX .EX * PR IN T rut , n(il 

COMMON /SCRAT/ NW (600 ) tNB <600 ) *NT (600 > * A < 1 00, 100 ) *GW (600 ) 

REAL NWtNBtNT 

NDIM=100 

nwing-npoint 

CALL SECONO (TIME) 

WRITE (6*300) TIME 
REWIND 9 

00 100 I=1»NWING 
100 READ (9) < A < 1 * J ) VJ - 1 * N W I NG > 

IFIMATIN.EQ.l ) GC TO 115 
REWIND 9 

CALL INVERT (A»NW1NG»NDIM> 

00 110 1 * 1 *NW ING 
110 WRITE (9) (A n * J> t J*1 *NWING> 

MAT I N = l 

115 00 120 1 = 1 * NWING 

gwu>=o. 

00 120 JalfNwING 

GW(I >=GW( IMA<I*J)«NWT J) 

120 CONTINUE 

150 CALL SECONO (TIME) 

WRITE (6*300) TIME . 

300 FORMAT (1H0*6HTIME • FlOoS) 

REWIND 9 

RETURN 

ENO 


PARTIN. 2 
PARTIN, 3 
PART IN. 4 
PARTIN. 5 
PARTIN. 6 
PARTIN. 7 
PARTIN. 8 
PARTIN. 9 
PARTIN. 10 
PARTIN. 11 
PARTIN. 12 
PART IN. 13 
PARTIN. 14 
PARTIN. 15 
PARTIN. 16 
PARTIN. 17 
PARTIN. 18 
PARTIN. 19 
PARTIN, 20 
PARTIN. 21 
PARTIN. 22 
PARTIN. 23 
PARTIN. 24 
PARTIN. 25 
PARTIN. 26 
PARTIN. 27 
PARTIN. 20 
PARTIN. 29 
PARTIN. 30 
PARTIN. 31 
PARTIN. 32 
PARTIN. 33 
PART IN. 34 


SUBROUTINE DlAGIN 

COMMON /PARAM/ M A CH * ALPHA ♦ R£FA *HAT IN 
COMMON /SCRAT/ NW (600) *A ( 100* 100) 

COMMON /SEG/ NCMPT*NFLAP »NFP *NC (4 1 * NX (58) 
IF (MAT 1N.E0.1 ) RETURN 
REWINO 3 
REWIND 10 
NDIM = 100 
DO 20 N=1»NCMPT 
JT=NC(N>-2 
00 10 I = 1 * JT 
10 READ ( 3 ) 

CALL INVERT (A*JT*NDIM> 

20 WRITE (10) A 
MAT IN-1 
REWIND 3 
REWINO 10 
RETURN 
END 


DIAGIN.2 
0IAGIN.3 
0IAG1N.4 
01 AG IN, 5 
DIAGIN.6 
01 AGIN. 7 
0IAGIN.8 
0IAGIN.9 
□ I AGIN. 10 
DIAGIN.ll 
DIAGIN.12 
D I AG IN , 1 3 
0 I AGIN , 14 

0 I AGIN. 15 
DIAGIN.16 
DIAGIN.17 

01 AGIN, 18 
01 AGIN. 19 
0 1 AGIN • 20 
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subroutine: itrate 

COMMON /SCRA7/ NW < 600 ) * < 600 ) *DN W (600 ) #0 < 1 00 • 1 00 > *Gtf 
1 ♦ A ( 60 0 ) 

common /seg/ ncmpt .nfla° *nfp *nc (A ) *NX (50 ) 

COMMON /VELCOM/ NPO INT *NP ART t ITRM AX *EX tPRINT 


COMMON/ ITS/ ITR999. I TRM99 
COMMON/ARC/ TOLL1 tTOLL2 
DIMENSION I T AB (6 ) 

DATA ITAB/25,25t25»30t3StA0/*ITEND/6/ 

REAL NW 
INTEGER PRINT 
REWIND 9 
NDX = I TR999 

IF (NOX.GT. ITEND>NDX*IT£ND 
IMAX= ITAB <NDX > 


nooi «gs 


IT = 0 

00 5 N- I «NPO INT 


GS (N) =0* 

5 RW<N)=NW(N> 
10 IT=IT*J 
I TEST s O 


IW = 0 
JW = 0 


HM = 0 

DO 60 N=ltNCMP7 

JT=NC<N>-2 

READ ( 10 > D 

DO 50 1=1 oJT 

IW=IW*1 

JW = MM 

GW( IW)=0. 

DO AO J= l t JT 
JW = JW ♦ 1 

AO GW( IW>=GWUW)*DUtJ)*RW<JW) 

IF (ABS (GW <IW) -GS UW> > .GT. TOLLS) !T£ST » 1 
IF (IT.LT. IMAX > GS ( IW) =>GW ( IW> 

50 CONTINUE 

HM = MH * JT 


60 CONTINUE 
REWIND 10 
CALL SECOND ( T IME ) 

WR 1 TE ( 6 1 A 0 0 ) ITfTIME 
IF ( ITEST.EQ.O) GO TO 90 
I T 1 - I T-l 

IF ( IT *EQ • IMAX ) GO TO 65 
00 80 1=1 tNPOINT 
CNW ( I ) =0 . 

READ (9) I A ( J) t J=1 tNPOINT) 

DO 70 J= 1 tNPOINT i 

70 ONWU)=DNW(I) *AfJ)#GW(J> 

80 RWm»NW<n-CNW<I) 

REWIND 9 

IF UT.LT. IMAX) GO TO 10 
85 WRITE (6*300) IT 
WRITE(6t350> I T 1 
WRITE (6 t600 ) (GS ( I > »I*l*NPOINT) 
WRITE (6t350> IT 

WR I TE (6 t6Q0 ) (GWU ) 1 1 = 1 tNPOINT) 
RJETURN 

90 WRITE (6t500) IT 


100 RETURN „„„ . 

300 FORMAT C lHOt20HNO CONVERGENCE AFTER * I5t lOHlTERATIONSt/ 

1 1 1 X 1 32HL AST TWO SOLUTION VECTORS FOLLOW t/) 

'350 FORMAT (lHOt 15HS0LUTI0N VECTORtlSt/) yi 

FORHAT<1HO t2AHS0LUT ION CONVERGED AFTERt I5t lOHITERATIONSt/) 
FORMAT < 1H0 t lAHITERAT ION NO. » I3t5Xt6HTIME *tE10.5) 

FORMAT UHOtlOFlOtS) 

END 


500 

A00 

600 


ITRATE.2 
(600) 1TRATE.3 


ITRATE, 

, A 

ITRATE, 

,5 

ITRATE. 

.6 

ITRATE, 

,7 

ITRATE, 

,8 

ITRATE, 

.9 

ITRATE, 

.10 

ITRATE, 

.11 

ITRATE, 

.12 

ITRATE 

.13 

ITRATE 

• 1 A 

ITRATE 

.15 

ITRATE 

.16 

ITRATE 

.17 

ITRATE 

.18 

ITRATE 

.19 

ITRATE 

.20 

ITRATE 

.21 

ITRATE 

.22 

ITRATE 

.23 

ITRATE 

. 2 A 

ITRATE 

*25 

ITRATE 

.26 

ITRATE 

.27 

ITRATE 

.28 

ITRATE 

.29 

ITRATE 

.30 

ITRATE 

.31 

ITRATE 

.32 


ITRATE .33 
ITRATE. 3A 
ITRATE. 35 
ITRATE. 36 
ITRATE. 37 
ITRATE. 38 
ITRATE. 39 
ITRATE. AO 
ITRATE. A1 
ITRATE. A2 
ITRATE. A3 
ITRATE. AA 
ITRATE. A5 
ITRATE. A6 
ITRATE. A7 
ITRATE. A8 
ITRATE, A9 
ITRATE.50 
ITRATE. 51 
ITRATE. 52 
ITRATE. 53 
ITRATE. 5A 
ITRATE. 55 
ITRATE, 56 
ITRATE. 57 
ITRATE. 58 
ITRATE. 59 
ITRATE. 60 
ITRATE. 61 
ITRATE. 62 
ITRATE, 63 
ITRATE. 6A 
ITRATE. 65 
ITRATE. 66 
ITRATE.67 
ITRATE. 68 
ITRATE. 69 
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o o n non 


SUBROUTINE INVERT (A*1A*NR0WS) 

REAL A (NROWS ♦ NRCWSJ* PIVOT* T 

INTEGER IPIVOTUPS) fIN0XRII25>*lN0XC(125) 


N - 1A 
DO 20 J=1 ♦ N 
20 IPIVOTCJ) = 0 
00 550 1=1* N 
T = 0.0 
DO 105 J*l* N 

IE ( IPIVOT < J) .EQ.l ) GO TO 105 
. DO 100 K=l* N 

IE UPIVOT <K> .EO.U GO TO 100 
IF < .NOT. <ABS(A<J*K>) -AB5(T> 
IROW = J 
ICOL = K 
T = A(J.K) 

100 CONTINUE 
105 CONTINUE 

IPIVOT(ICOL) = IP IVOT ( ICOL) *1 
IE ( IROW. EQ. ICOL) GO TC 260 
DO 200 L = 1 ♦ N 
T = A < IROW *L ) 

AUROW.L) = A < ICCL*L> 

200 AUCOLtU = T 
260 INOXR(I) = IROW 
JNQXC(I) = ICOL 
PIVOT = A(lCOLflCOL) 

IE (PIVOT) 270* 750* 270 
270 A ( ICOL * I COL ) * 1.0 
DO 350 L=1 * N 

350 AUCOL.L) = A(ICOL*L)/PIVOT 
DO 540 L = 1 * N 
IE (L. EG. ICOL) GC TO 540 
T = A(L*IC0L) 

A (L * ICOL ) = 0.0 
00 450 M=l* N 

450 A(L«M) = A<L*H)-A (ICOL*^)*T 
540 CONTINUE 
550 CONTINUE 

00 710 1=1* N 
L 3 N ♦ 1 ” l 

If ( INOXR(L) «EC. |NDXC(L) ) 
IROW 9 INOXR (L ) 

ICOL = 1N0XC(L) 

00 705 K = 1 ♦ N 
T = A (K * IROW) 

A (K * I ROW ) = A IK* ICOL) 

705 A ( K * ICOL ) * T 
710 CONTINUE 


,GT. 0.0) ) GO TO 100 


GO TO 710 


SUCCESSFUL SOLUTION 


RETURN 
750 CONTINUE 

SINGULAR MATRIX 


WRITE (6* 751) 

751 FORMAT I29H ERROR THE MATRIX IS 
CALL EXIT 
END 


SINGULAR) 


INVERT. 2 
INVERT. 3 
INVERT. 4 
INVERT. 5 
INVERT. 6 
INVERT. 7 
INVERT. 8 
INVERT. 9 
INVERT. 10 
INVERT. II 
INVERT. 12 
INVERT. 13 
INVERT. 14 
INVERT. 15 
INVERT. 16 
INVERT. 17 
INVERT. 18 
INVERT.19 
INVERT. 20 
INVERT. 21 
INVERT. 22 
INVERT. 23 
INVERT. 24 
INVERT. 25 
INVERT. 26 
INVERT. 27 
INVERT. 28 
INVERT. 29 
INVERT. 30 
INVERT. 31 
INVERT. 32 
INVERT. 33 
INVERT, 34 
INVERT. 35 
INVERT. 36 
INVERT. 37 
INVERT. 38 
INVERT. 39 
INVERT. 40 
INVERT. 41 
INVERT. 42 
INVERT, 43 
INVERT. 44 
INVERT. 45 
INVERT. 46 
INVERT. 47 
INVERT. 48 
INVERT. 49 
INVERT. 50 
INVERT. 51 
INVERT. 52 
INVERT. 53 
INVERT. 54 
INVERT. 55 
INVERT. 56 
INVERT ,57 
INVERT. 58 
INVERT. 59 
INVERT, 60 
INVERT, 61 
INVERT. 62 
INVERT. 63 
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SUBROUT INE LIFT ^ *CPU *C?L * XREF * ZREF *CREF *COS AL *CL *CM ) 

COMMON /PO INT /ARRAY (4950 ) 

COMMON /SEC/ NCHPT»NFLAP*NFP*NC(4) *THETE(12) *NPU(4) »NPL(4)*ISTG<4 
DIMENSION CPU <l)*CPL(l>»XU<30*4)*XL(30*4) 

EQUIVALENCE (ARRAY <3001 * * XU) » (ARRAY (31 21 > * XL) 

EQUIVALENCE (ARR fl Y (3241 ) *ZU) 9 (ARRAY (3361 ) *ZL> 

DIMENSION ZU<30*4 ) *ZL (L9*4> 


NU=NPU(N)-I 

nl=npl < N ) - 1 

IF(N.LE.l) CL = 0* 
IF(N.LE.l) CM = 0 • 


CLU-0 • 


CLL = 0 ♦ 
CMU = 0 » 


cml=o. 

DO 10 1=1 »NU 
DELX=XUU*I*N)-XU(I»N) 

0ELZ=ZU< I*1*N)-ZU{I*N> 

XPT=(XU<I*N)*XU(tM*N)>*.5 

ZPT-(ZU(I*N)*ZU(l*ItN))*«5 

CZU = CPU ( I > «DFLX 

CXU=CPU(I)»DELZ 

CLU=CLU*CZU 

CMl) = CZU° (XP T-XREF ) +CXU® ( ZPT-ZREF) *CMU 
10 CONTINUE 

00 25 1=1 *NL 

DELX = XL < I M *N) -XL < I *N) 

DELZ=ZLU*1*N)-ZL (I*N) 

XPT=(XL(I*N)*XL(t*l*N>)*.5 

ZPT=(ZL(I*N)*ZL(1*1*N))*»5 

CXL=CPL ( I) «DELZ 

CZL=CPL ( I ) °DELX 

CLL = CLL *CZL 

CML=CZL C (XPT-XREF)*CXL« < ZPT-ZREF > ♦CML 
25 CONTINUE 

CL=<CtL-CLU)«COSAL/CREF*CL 
CM=(CMU“CML)/CREF**2 ♦ CM 
RETURN 
END 


LIFT ,2 
LIFT. 3 
ILIFT.4 
LIFT. 5 
LIFT. 6 
LIFT. 7 
LIFT. a 
LIFT, 9 
LIFT. 10 
LIFT.11 
LIFT. 12 
LIFT. 13 
L I FT , 1 A 
LIFT. 15 
LIFT. 16 
LIFT. 17 
LIFT. 18 
LIFT. 19 
LIFT. 20 
LIFT. 21 
LIFT. 22 
LIFT. 23 
LIFT. 24 
LIFT. 25 
LIFT. 26 
LIFT. 27 
LIFT. 28 
LIFT. 29 
LIFT. 30 
LIFT. 31 
LIFT. 32 
LIFT. 33 
LIFT, 34 
LIFT. 35 
LIFT. 36 
LIFT. 37 
LIFT. 38 
LIFT. 39 
LIFT. 40 




OVERLAY (FrtlS* 2*0) 


PROGRAM 

ibl 



I BL . 3 

COMMON 

/ 

AKAP 

/ 

AKAP"AKAP2»CltPI'PI2 

181 *4 

COMMON 

/ 

AREA 

/ 

AREA 

IBL. 5 

COMMON 

/ 

ASCALE 

/ 

ASCALE 

IBL .6 

COMMON 

/ 

CL 

/ 

CL*C0T*CDF*CDP*SEPTRB<2) 

IBL .7 

COMMON 

/ 

CU2T 

/ 

DU2T 

1 8L .8 

COMMON 

/ 

HTURB , 

/ 

HTURB 

IBL .9 

COMMON 

/ 

INSTB 

/ 

INSTB* ITRAN 

IBL .10 

COMMON 

/ 

I Sep 

/ 

ISEP*1TRIP*IATT*TE 

IBL. 1 1 

COMMON 

/ 

130 

/ 

1 3D 

IBL. 12 

COMMON 

/ 

NBL 

/ 

N8L 

I BL .13 

common 

/ 

NK9V 

/ 

IDTAG»AHMINM.AHSTRT*MXXNfMFAILl*MSTEP2 

1 8L . 14 

COMMON 

/ 

NL AM 

/ 

NL AM 

IBL. 15 

COMMON 

/ 

NOoOER 

/ 

NORDER*ALFR*FLAG 

1 8L .16 

COMMON 

/ 

NPT 

/ 

N p T 

I BL .17 

COMMON 

/ 

NT UR 8 

/ 

NTURB 

IBL. 18 

COMMON 

/ 

NUS 

/ 

NUS 

I BL .19 

COMMON 

/ 

RNP. 

/ 

RNB 

IBL. 20 

COMMON 

/ 

s angle 

/ 

5 ANGLE 

IBL *21 

COMMON 

/SCR AT/ ALFS (200) *BETA(200> *CD<200> ♦CFD(200) *CF1 (200) * 

IBL. 22 

1CF2(2Q0> *1 

3EL ( 200 ) 

> t 1 

DELST2(200> * DEL T (200) *H(200) *HHDS(200) *HI (200) » 

IBL. 23 

2PK <200 ) 

.ROEL (2001 

> V ! 

R INSTB (200) *RTRAN(200> *PK8AR(200)*RTH(200>* 

IBL. 24 

3S (200 ) . 

U(200) ♦ OU <200) *SUO (200)* UllO(200) »T HE T12(2 00 )tT HE T21 ( 20 0)» 

IBL *25 

4T HE T22(200>*THT(200>*X< 20 0).Y(200>*CPC(200>*Z( 200) *OUMMY (2600) 

IBL. 26 

COMMON 

/ 

SEP 

/ 

SEP 

IBL .27 

COMMON 

/ 

TITLE 

/ 

T ITLE (8) 

IBL .28 
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noon 


1 


2 

3 


COMMON / TITLE? / TITtEP(24) 

COMMON / TRIP / TRIPI2) 

COMMON / TRTPUL / TR IPUP « TR I POP 

COMMON / XIN / XIN(IOO) *YIN(100) *UIN(100) 

COMMON / 22 / ZZ<4) 

COHMON/NXT/NXT 
COMMON/MTRAN/ MTRAN 

COMMON/5EG/ NCMPT .NFLAP *NFP*DUM (44) *XTE (A) *0UMH(18> 
COMMON/ SLOT /HSS (1 00 ) *TS3 (1 00) *OS$ < 100) »C5S ( 1 00) *USS (1 00 ) 
N TP = 3 

CALL INPUT 
CALL BOUND 

If (MTRAN. GE.?> GO TO 1 
CALL DRAG 

CONTINUE ; 

CALL PRINTER 
If (MTRAN.EQ.l ) GO TO 3 
00 2 I=l*NXT 


hssui 
TSSII) 
OSSII) 
CSS 1 1 ) 
U5SU) 

oTssm 


M<I) 
ThT(I) 
DU < T ) 
CFO ( J ) 
U(l) 

' 0 • 


If U 0 GE.ITRAN> 

CONTINUE 

CONTINUE 

RETURN 

END 


OTSS(I) * DELTU) 


I8L.29 
IEL.30 
I6L *31 
IBL.32 
IBL.33 
IBL.34 
IBL *35 
IBL.36 
tDTSSClOO) I8L « 37 
I8L *38 
IBL.39 
IBL.40 
IBL.41 
IBL.42 
IBL.43 
IBL.44 
I8L .45 
IBL.46 
I BL *47 
1BL.40 
I6L.49 
I8L.S0 
IfiL *5 1 
I8L.52 
IBL*53 
IBL *54 
I0L.55 
I8L.56 
I8L.57 


SUBROUTINE ACOE(SS*INO) 

COMMON / SOt N / YI3)*YP(3) 
EQUIVALENCE ( YU)*TH ) * I Y(2)*P 


> * < Y(3)*H ) 

* K , OAS ♦ KDA 

* MHOS i Cfl * F t DOOM 
ODOM » OEOH * DJOH 


COMMON /USXX/ US * DUS « ALPZ v ALP i 
COMMON /fSCL/ RTF » BETA * T8 * 80S i 
COMMON /RPOLY/ C ♦ 0 * E » J * OCDH 
COMMON/MAtX/ A<4*4)*B<4>*IPR<3) 

REAL KO A *K * J»KCT8 
CALL CPOL Y < H ) 

CALL EAT ( SS * TNO) 

Cf 1 2= CE1/2.Q 
MM) = 1*0 
=-K«J 

- -X*P«DJ0H 

CF12 - DUSM2.0 * H)*TH ♦ K0A*(TH « P*C*TB) 
K«C«TB 
= P«KCT8/TH 

= E - KCTB - K*F *C/TH/HHDS 
s P*DEOH - k*P*TB«DCDH - P°KCTB*U.O 
BA = TH° < H* l » 0 ) ♦ P°C*TB 
S < 2 > s CF12*TB - 2 . O tt DUS*P tt E 
= HOS 
a K «D 

= TM*OGDH ♦ K®P«DDDH 
f ♦ TH*HDS ° (KOA - DUS) 

= AU*1><MA(2,2>«A(3*3) 

] -AU»2)°(A(2*1)«A(3,3> 

1 ♦A<1*3>« (A(2U)*A(3,2) 

WRITE (6*6000) SS «US *OUS >0ETERM 
RETURN 
END 


A ( 1 *2) 
A ( 1 * 3 ) 
BID a 
KCTB = 
A ( 2 ♦ 1) 
A (2*2) 
A (2*3) 


A ( 3 * I ) 
A (3*2) 
A (3*3) 
B (.3 ) = 
DETERM 


♦ DGOH) /HMDS 
K«0US«(BA) * 2 ,0*KDA*P*£ 


A(3*2)°A(2*3) > 
A(2*3)«A(3,I) ) 
A(292)«A(3»1)) 


AC0E.2 
AC0E.3 
ACOE *4 
AC0E.5 
AC0E.6 
ACOE. 7 
ACOE *8 
ACOE. 9 
ACOE, 10 
ACOE , 1 1 
ACOE. 12 
ACOE. 13 
ACOE. 14 
ACOE. 15 
ACOE. 16 
ACOE. 17 
ACOE .18 
ACOE. 19 
ACOE, 20 
ACOE. 21 
ACOE, 22 
ACOE. 23 
ACOE. 24 
ACOE. 25 
ACOE. 26 
ACOE. 27 
ACOE. 28 
ACOE. 29 
ACOE. 30 
ACOE. 31 
ACOE. 32 
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SUBROUTINE BOUNO 

COMMON /SCRAT/ At F S < 200 > ♦ BE T A < 200 > * CO ( 20 0 ) *CFD(200> *CM 20 01 > . 

1CF2 < 2 00 ) * OF L ( 200 ) »DELST2(20Q) *U£i_ T (200) tH (200) , HMDS <200 ' »Hl 200) * 

2PK 1200). RDEL (200) *RINSTa <2001. RTRAN (2001 *PKBAR <2001 *RTH(200>* 

3S(200) ,U<200) *DU(200)*Si)0<200> *UUO<200> * THE T 1 2 ( 200 1 * THET2 1 ( 200 ) * 
ATHET22(200) ♦ THT (200) *X(200)*Y<200) * CPC (200 > » Z (200 ) * DUMMY ( 2600 
COM MON/M T RAN/ MTRAN 

COMMON/SEG/ nCMPT ,NFL AP *NFP »DUM (A A) »XTE(A) *DUMMU8> 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


SANGLE 

RN8 

NUS 

TRIP (2> 

130 

NLAM 

INST8 *ITRAN 
/ HTUR3 

/ ISEF* JTRIPf IATT,TE 
/ ZZ('»> 

/ NTUR9 
/NBL 


550 


525 


SANGLE 
RNR 
NUS 
TRIP 
130 
NLAM 
/ INSTB 
/ hTtlRB 
✓ I SEP 
/ ZZ 
/ NTURB 

. . / nbl 

COMMON/NXT/NXT 
COMMON / CL 
NUS = 200 
NBL 3 0 
TRIPS=TRIP<1> 

THTZ = 0. 

IF ( SANGLE *GT. 0.) 550*375 
IF ( HTURR .NE. 0*) 575*525 

CALCULATE CSTAR TO DETERMINE IF LAMINAR ANALYSIS IS TO 
PERFORMED* IF SO* USE R T Hi TO OBTAIN STARTING THETA. 
CONTINUE 

CALL IN1T tUUD*RTH*H7l> 

IF ( 1 3D «EQ# 1) 560*570 


/ CL*COT*CDF*CDP*SEPTRB (2) 


BE 


HTUR9 = HT L 
GO TO 571 
HTUR8 = 0* 

THTZ = RTH1/(UU)*RNB) 

GO TO 1000 

IF (THTZ) 1000*600*1000 
CONT INUE 
PKZ - .0855 

ouin = ABStounn . 

ZZERO=PKZ/CU(l> 

ZZU)=ZZERO 
GO TO 1100 

CALCULATE L INITIAL 2 
ZZ(1)=THTZ«*?*RNB 

continue 

IF (HTURB .NE. 0.) 1200*1300 
1TRAN - 1 
INSTB = 1 

THTU) - THTZ 

IF (MTRAN.EO .2 ) MTRAN = 3 
IF (HTRAN.EQ *3) NUS * 100 
GO TO 1600 
NLAMsNUS 
CALL LAHINAR 
CALL TRANSIT (TRIPS) 

IF (MTRAN. EQ.l 1 GC TO 1380 
NF - NFLAP-NPP* 1 
NXT = ITRAN 

IF(ITRAN.GT.IOO) NXT * 100 
IF(X(ITRAN).GT.XTE(NF>) GO TO 1800 
NUS = 100 
NXT = NUS 
MTRAN s 3 
1380 CONTINUE 

NLAM= ITRAN K 

NBL=1TPAN 


560 

570 

571 

575 

600 

700 

900 


1000 

1100 

1200 


1300 

1375 


BOUND. 2 
BOUND. 3 
BOUND. A 
BOUNO. 5 
BOUNO. 6 
BOUND. 7 
BOUND. 8 
BOUNO. 9 
BOUNO. 10 
eOUNO.il 
BOUNO. 12 
BOUND. 1 3 
BOUND. 1 A 
BOUND. 15 
BOUND. 16 
BOUND. 17 
BOUNO. 18 
BOUND. 19 
BOUND. 20 
BOUND. 21 
BOUND. 22 
BOUND. 23 
B0UNO.2A 
BOUND. 25 
BOUND. 26 
BOUNO. 27 
BOUNO, 28 
BOUNO. 29 
BOUND. 30 
BOUNO. 31 
BOUNO. 32 
BOUND. 33 
BOUNO .3** 
BOUND. 35 
BOUNO, 36 
BOUND. 37 
BOUNO. 38 
BOUND. 39 
BOUND. AO 
BOUNO .A 1 
BOUND, A2 
BOUND. A3 
BOUNO. AA 
BOUNO. AS 
BOUNO. A6 
BOUND. A7 
BOUND. A8 
BOUND. A9 
BOUND. 50 
BOUNO. 51 
BOUND. 52 
BOUNO. 53 
BOUNO. 5A 
BOUND. 55 
BOUND. 56 
BOUNO, 57 
BOUND. 58 
BOUND. 59 
BOUND. 60 
BOUND. 61 
BOUNO. 62 
BOUNO. 63 
BOUND. 6A 
BOUNO. 65 
BOUND, 66 
BOUNO. 67 
BOUND. 68 
BOUNO. 69 
BOUND, 70 


147 



.EQ. NUS) GO TO 
► EQ. 2)1400*1700 


1800 


IFfTE .NE • 0. .OS. NBL 
IF (I SEP .EQ. 1 ) IF ( IATT 
1400 CONTINUE 

1600 CALL TURB < 

1602 NBl=NTURB 

IF (MTRAN.EQ.3) GC TO 1800 

IF (NBL .LT .NUS) GC TO 1900 _ , ^ , Qrtft 

IF (N0L .EQ .NUS * AND *M (NUS) .GT . 3. . OR «H (NUS ) *LT * 1 • ) GO TO 1900 

GO TO 1700 
1900 CONTINUE 

IF ( H (NBL ) *LT . 1 • ) THT(NBi-) = 1 * 1 °tHT (NBL-1 ) 

IF (H (NBL ) *LT. 1 . ) H(NBL) = 1.1*M(N8L-1> 

IF (RTH(NBL) .LT.O.) H(N8L) = 1.1*H<N0L-1) 

IF(RTHINBL) .LT.O.) THT(NBL) = 1 .1*THT (NBL-1 > 

00 2000 1 S NBL *NUS 
SS = S(I) 

H ( I ) = TBLUi (SS»S*H*1*N3L) 

THT(I) s TBLUI (SS*S»THT»1 *N0L) 

2000 CONTINUE 

1700 CONTINUE ; 

1800 CONTINUE 
RETURN 
END 

SUBROUTINE DRAG _ 

COMMON /5CRAT/ ALFS (200) «BET A (200) *C0 <200 > *CFD (200) *CF1 (200 > ♦ 
1CF2 (200) »OEL ( 200 ) »DElSY2<200> *OELT <200)*H(20Q),HHOS(200>*HI(2QO 
2PK ( 200 ) ,ROEL(200).RIN5T3(200)*RTRAN(200)*PKBAR(200) ,RTH(200)» 
35(200) .U(200) ♦OU(200)*SUD(200) *UUD(200) *THET12(200) »THET2H200> 
4THET22(200) *THT (200) *X(200) * Y (200) *CPC(200> »2(20O) ♦ DUMMY (2600) 


COMMON 

/ AREA 

/ AREA 

OATA TUOPI/6. 203185308/ 

COMMON 

/ NUS 

/. NUS 

COMMON 

/ NORDER 

/ DUM2 > ALFR »FLAG 

COMMON 

/ N8L 

/ NBL 

COMMON 

/ INSTfl 

/ INSTB* ITRAN 

common 

/ CL 

/ CL*CDT»CDF*COPtSEPTRB(2> 

COMMON 

/CF / 

CF ( 200 ) 

comhon 

COMMON 

/CD / 
/ 1 SEP 

CDS (200) 

/ ISEP»ITRIP*IATT#TE 


400 

100 


200 


CD-0. 

CF ( 1 ) =0 • 

DXsQ. 

DY-0 • 

NM1 = NBL - 1 
Cl = CFD(l) 

DO 400 I=l*NMl 
DDX = X < l ♦ 1 > - X « I) 

DOY=Y < 1*1 ) -Y ( I > 

OS = S ( I ♦ 1 > - SII) 

C1PL1 = CFD ( I ♦ 1 ) 

A = ( C I PL 1 “ Cn/DS 
B = C I -A°S ( I ) 

nxx = .5«A» <S < I *1 )<**2-S M.)**2)*8*DS J 

OINCX = DXX ®DDX/DS 

01NCY = DXX«OOY/DS - „ 

CF(IM)=DINCy »SIN(ABS<ALFR))*DINCX *COS(AES(ALFR))*CF(l) 

Cl = CIPLl 

CONTINUE 

00 200 I = I TRANiNBL 
F1 = .5MHU> ♦$.> 

IF (H(I) •GT.2.6) F! = 3.8 

CDSU>®2.*THT(I)«U(I)**F1 

CONTINUE 
CO = COS (NBL) 

COT = CD 

COF = CF <N8L> 

COP-CDT-CDF 

RETURN 

ENO 


BOUNO.71 
BOUND .72 
BOUND. 73 
BOUND. 74 
BOUND.75 
BOUNO.76 
BOUNO.77 
BOUND. 78 
BOUND. 79 
BOUND. 80 
B0UN0.81 
BOUNO.82 
BOUND. 03 
B0UN0.84 
BOUND. 05 
BOUND. 86 
BOUND. 07 
B0UN0.88 
BOUND. 89 
BOUND. 90 
BOUNO.91 
B0UN0.92 
B0UN0.93 
DRAG. 2 
OR AG . 3 
)♦ DRAG. 4 
DRAG. 5 
t DRAG. 6 
DRAG. 7 
DRAG. 8 
0RAG.9 
DRAG. 10 
DRAG. 11 
DRAG. 12 
DRAG. 13 
DRAG. 14 
DRAG. 15 
0RAG.16 
DRAG. 17 
DRAG. 18 
DRAG. 19 
DRAG. 20 
DRAG. 21 
DRAG. 22 
ORAG.23 
DRAG. 24 
DRAG. 25 
DRAG. 26 
0RAG.27 
ORAG.28 
DRAG. 29 
DRAG. 30 
DRAG. 31 
DRAG. 32 
DRAG. 33 
DRAG. 34 
ORAG.35 
DRAG. 36 
DRAG. 37 
DRAG, 38 
DRAG. 39 
DRAG. 40 
DRAG. 41 
DRAG. 42 
0RAG.43 
DRAG, 44 
DRAG. 45 
DRAG. 46 
DR AG, 47 
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SUBROUTINE CPOLY< H ) 

COMMON /RPOLY/ C . D ♦ E * J * OCDH * ODDH * DEOH ♦ OJDH 
COMMON / FSOL / RTHv BETA. T8. HOS* HMOS * CF1* F* OGOH 
REAL J 


HO = (H*l,0>*tMO.0>*<H*5.0> 

0 --16 ,0/HD 

ODDH = 1 6 * 0* (3 • 0 C H«H ♦ 18*0»W ♦ 23*0)/ (HO^HO) 

HE = H« (H*l .0)°(P*2«0> 

E = -2,0/HE 

DEOH = 2.0« <3#0°*H*H ♦ 6*0 # H ♦ 2.0)/<HE°HE ) 

J = E - D 

DJDH = DEDH - ODCH 

HC = H« (H* 1 • 0 ) * (F *2 *0 ) 4 IH+3.0 > * (H *4 *0) 

DCOH = 24«0*<5.0 ft H» ,> 4 *.40.0 # H a *3 ♦ 105,0*R*H ♦ lOO.O^H * 24*) 
1 / (HC°HC> 

RETURN 

ENO i 


CP0LY.2 
CPOLY. 3 
CPOLY. 4 
CPOLY *5 
CP0LY.6 
CPOLY. 7 
CPOLY. 8 
CPOLY. 9 
CPOLY. 10 
CPOLY. 11, 
CPOLY. 12 
CPOLY. 13 
CPOLY. 14 
CPOLY. 15 
CPOLY. 16 
CPOLY. 17 
CPOLY. 16 
CPOLY. 19 
CPOLY. 20 


SUBROUTINE ARC <N , S *U* 5 JNAZ . S INAZ2 ♦ SS.US * ALPS > 
01 MENS ION SU) *SS<1)*U(1)*US<1>»ALFS(J) 

5S < 1 ) = o. 

» usd) = soRT(um*ud) * sinaz2) 

NM1 - N - 1 

ALFSU) = AS IN < S INAZ/US (1)1 

DO 100 I=1»NM1 

UT = U < T * 1 > 

USU*1) = SORT (UT°UT »S INAZ2) 

SA = SlNAZ/USd*l) 

ALPS (I ♦ 1 ) * AS IN IS A > 

, TA * T AN ( ALf $ ( 1 + 1 ) ) 

os a SU*U-SU) 

s 5 < I * 1 > = SS(1) ♦ SQRTU.*TA*TA)*OS 

100 CONTINUE 
RETURN 
ENO 


ARC. 2 
ARC. 3 
ARC .4 
ARC. 5 
ARC. 6 
ARC. 7 
ARC. 8 
ARC. 9 
ARC, 10 
ARC, 11 
ARC. 12 
ARC, 13 
ARC. 14 
ARC, 15 
ARC. 16 
ARC. 17 
ARC • 1 8 


C 

C 


C 


SUBROUTINE FAT(SS.INO) 

COMMON /SCRAT/ At PS ( 2 00 > * BET A ( 20 0 ) »OUM 1< 320 0 ) , S ( 20 0 ) *U < 200 ) » 
10U (?00 ) »0UM2 (1000) *THT< 200) 

COMMON / INS TB / INSTB * 1TRAN 
/ SOlN / Y(3) *YP <3) 

/ SANGLE / SANGLE 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ RNB / RINF 
/ HTURB / HTUR3 
/ NUS / NUS 
EQUIVALENCE < YU).TH ) » ( Y(2),P ) 
COMMON /USXX/ US * DUS » ALPZ * ®LP 
COMMON /FSOL / RTH » 8ET » TB » HOS * 
COMMON /RPOLY/ C * 0 t L ♦ J t OCOH 
COMMON /XXXX/ X , 

REAL KOA.K.J • 


» ( Y<3),H > 

K • CAS . KOA 
HHOS * CF1 * F » OGOH 
ODOH » OEDH , OJDH 


DSDX , XK . Yl i XS » YS 


U5 = TBLU1 (SS.S.U.l *NUS» 

OUS = T8LU1 (SS.S.DU.l.NUS) 

WARNING — VARIABLE OUS =(DU/OS)/US* NOT MERELY OU/DS. 

OUS = DUS/US 

ALP = A S IN ( SINAZ/US) 

DAS = -SINAZ/(US*COS(ALP>)*OUS 

K = TAN(ALP) 

KOA = K»OAS 

RTH = US»TH*RINF 

IP (RTH.LT.O.) GO TO 230 

Z = ALOG (RTH) _ ^ ^ 

TK1 = 0.01952 - 0.3868*7 ♦ 0.02834«Z*Z - 0 .0007#Z*Z»Z 
TK2 - 0.1^151 - 0 . 8349*2 ♦ 0.06259«Z*Z - 0.001953*Z»Z*Z 


PAT. 2 
FAT. 3 
FAT. 4 
FAT. 5 
FAT. 6 
FAT. 7 
FAT. 8 
FAT. 9 
FAT .10 
FAT. 11 
FAT. 12 
FAT .13 
PAT. 14 
PAT. 15 
FAT. 16 
FAT, 17 
FAT. 18 
FAT. 19 
FAT. 20 
FAT. 21 
FAT. 22 
FAT. 23 
FAT. 24 
FAT. 25 
PAT. 26 
PAT. 27 
PAT. 28 
FAT. 29 
FAT. 30 
FAT. 31 
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n r> 


SUBROUTINE FmaY <N * SS * YY * YYP* INO) ' 

DIMENSION YY ( 3) ♦ YYP(3)*CC(4> 

COMMON / SOl.N / Y ( 3) *YP (3) 

EQUIVALENCE < Y(1)»TH f * ( Y(2)*P > * < Yt3)*H ) 

COMMON / “ATX/ A(4*4) * 8(4) * IPR(3) 

COMMON /USXX/ US ♦ DUS ♦ ALP7 * ALP * K * DAS ♦ KDA 
COMMON / F SOL/ RTH * PETA » T8 * HOS * HHCS * CF1 * F * DGDH 
REAL KO A *K* J 
C 

YH = YY(1> 

P = YY ( 2 ) 

H = Y Y ( 3 ) 

CALL ACOE (SS * INO) 

IF ( IND «EQ. 1) GO TO 300 

C 

CALL SMLN < A ?CC* B* 3 ) 

C . 

YYP(l) =CC<1> 

Y YP ( 2 > =CC ( ?) 

YYP<3> -CC (3) L 

300 RETURN ...... 

END 


FMAT.2 
FMAT.3 
FMAT.4 
FMAT ,5 
FMAT. 6 
FMAT. 7 
FMAT. 8 
FMAT. 9 
FMAT. 10 
FMAT. 11 
FMAT. 12 
FMAT. 13 
FMAT. 14 
FMAT. IS 
FMAT. 16 
FMAT. 17 
FMAT. 18 
FMAT. 19 
FMAT. 20 
FMAT. 21 
FMAT. 22 
FMAT. 23 


SUBROUTINE INI T <U1 *RTH1 *H1> t 

0 1 MENS I ON U1 (1 ) , 

COMMON /SCRAT/ ALFS ( 20 0 )♦ BET A < 200 )* CO ( 200 ) *CFD ( 20 0 )♦ CF 1 ( 20 0 ) » 

1CF2 (200) .DEL (200) *QELST2(200> *OELT (200>*H(?00> .HHDS(2 00) »OUM(2O0) * 
2PK (200) »RDEL (200) *RIN$T9(200) *RTRAN(200) *PKBAP(200> *RTH(200) ? , 

35 (200) *U ( 200 ) * DU (2 00 > *SUD (200 ) ♦UUO(200) *7HET12(2O0> ♦ THET2 1 (200) * 
4THET22(200)»THT(200)»X(200)*Y<200>»CPC(200)*Z(200) * DUMMY (2600) 
COMMON / NUS / NUS 

D I MENS I ON CSTARTU6) *RTHTA8<16) »hTA0(16> 

COMMON/SWEEP/ HH1 .RRTH1 *KSH 
CONMON/SEG/ NCMPT.NFLAF »NFP»NC(66) 

COMMON/N5IOE/NSIOE 
COMMON / 130 ' / 130 

DATA NTAB/16/ 

COMMON / SANGLE / SANGLE 

COMMON / RNR / RNR 

GIVEN A CALCULATED VALUE OF C*» A TABLE SEARCH IS PERFORMEO TO 
obtain AN INITIAL RTHETA AND H. 

DATA (HTA8 < I > * I * 1 1 1 6 ) / 

1 2.54 »2.54 *2.54 *2.38 *1.78 *1.70 * 

2 1.60 *1.56 *1.54 *1*53 *1.51 *1.50 ♦ 

3 1.47 *1.45 *1.44 *1.43 7 

OATA (RTHTAB(I)* 1*1*16) / 

1 0, *57.1 *80.88 *100. *200. *245, ♦ 

2 295. *350. *400. *430. *450. *550. * 

3 640. *720. *805. *875. / 

DATA (CSTART(I)* 1*1*16) / 

1 0. *2.E4 *'*,E4 »6.E4 *8,E4 * 1 *E5 * 

2 1.2E5 *1.4E5 . *1.6E5 *i.8E5 *2.0E5 *2.SE5 * 

3 3.0E5 *3.5E5 *4.E5 *4.5E5 f 

GO TO (4*2*4, 3*4*3*4*3) tNSlOE ‘ 

CONTINUE 

IF (NFLAP.GT .0) GC TO 4 

GO TO 2 

CONTINUE 

130 =0 

Hi =0 

PIOV180 = .01745329 

V = SIN <SANGIE*PIOV180> 

OELX * 5UD ( 2 ) - SUD(l) 

DU1DX * (U1 < 2 ) - U1 (in /OELX 

C5TAR * (V*V/CUlDX)*RNe 

CSTAR * ABS(CSTAR) 

IF (CST AR .GT. 1.3E*05) 50*100 r 

0 I3D =1 : 


*2.38 

*1.78 

*1.70 

* 

INIT.21 

*1.53 

*1.51 

*1.50 

» 

INIT.22 

*1.43 



/ 

1NIT.23 





INIT.24 

*100. 

*200. 

*245. 

* 

INIT.25 

430. 

*450. 

*550. 

* 

IMT.26 

875. 



/ 

IMT.27 





IMT.28 

>.E4 

»8,E4 

• 1 *E5 

• 

IN1T.29 

*i .8E5 

*2.0E5 

♦2.SE5 

» 

INI T .30 

.5E5 



/ 

INIT.31 


PRECEDING PAGE BLANK NOT FILMED 151 



Hi = TBLUl (CSTAR»CSTART.HTAB*2*NTAB) 

100 RTHl = TBl.Ul (CSTAR*CSTART*RTH7AB»29NTAB) 

IF (CSTAR.G7 »5.E*05) GO TO 10 
GO TO 20 
10 CONTINUE 
HI = 1*41 
RTHl = 1000* 

20 CONTINUE 
HH1 - Hi 
RRTH1 = RTHl 

KSW = 1 3D .. 

GO TO 5 
2 CONTINUE 
HI = HH1 
RTHl = RRTH1 
130 = KSW 
5 CONTINUE 
RETURN 
ENO 


COMMON /SCR AT/ ALF5 (?00> *8ETA(200) tCD (200> » CFO (200) .CF 1(200). 
1CF2<2 00 > .DEL (200) .DELS) 2(200 > tOELT (200) *W(200) .HHOSfZOO) *H1 (200) • 
2PK (200) *PDEL (200) *R INST3 ( 200 > *RTR AN (20 0 ) .PKBAR ( 200 ) *«TH(200>* 

3S (200) *U(200) .DU (200 > *S'JQ(200) *UL'D(200) »TH£T12(200> *THET21 (200) 9 

4T HE 122(200) *THT (200) ♦X(200>*V(20EJ)t CP C(200> *2(200)* DUMMV(2600) 

COMMON/IPRINT/IPRINTtKSKIP 
COMMON / RN^ / RNB 

COMMON / T R T PUL / TRIPOP 
COMMON / ANGLE / ANGLE 

COMMON / NUS ( / NUS 

COMMON / NPT / NPT 

COMMON / T R T P / TRIP < 2 ) 

COMMON / TITLE / T ITLE ( 8) 

COMMON / NOPOER / NORDtR ♦ ALFR *FL AG 
COMMON / TI7LEP / TITI.EP(24) 

COMMON/XIN/ XIN(100)*YIN<100).CP|N(100)*SUUOO) 

DIMENSION U IN ( 1 00 ) rrn , nn(11 

COMMON /CL / CL .COT *CDF *CDP *S£PTRB ( 2) 

COMMON / HTljRB / HTUR8 

COMMON / SANGLE / SANGLE 

COMMON / SINAZ2 / 5INA22 


NUS = 200 

PI = 3. 14159265 

ALFR=ANGLE«PI/180. 

HTUR8 =0. 

SINAZ * SIN(5AN OLE® 0*0174532925 2) 

SINAZ2 = SINAZ«SINAZ 
NORDERal 

KKK ~ ] • 

IF (KKK*EQ* 1 ) GO TO l 
GO TO 2 
1 CONTINUE 

00 3 I a 1*NPT 

UIN(I) = SORT (1 •-CPIN(I) ) 

3 CONTINUE 
.2 CONTINUE 

0041=1 »NPT 

CPC ( I ) = 1. - UIMI>**2 

4 CONTINUE * 

CALL SCHORD (NPT»X |N*VIK'tSU) 

CALL SMOOTH (NPT *SU*U IN* NUS* 5UD*UUD*0U) 

CALL ARC ( NUS tSUO*UUO*SINA?*SINAZ2*S*U* ALPS) 
CALL SDEPV (NPT *SU *UIN*NUS*5*U*0U) ' 

OU(l) = ABSiOUH)) 

00 10 I = 1*NUS 

X(I> = TBLUl (SUO (I)*SU*XIN*1 *NPT) 

YU) = TBLUl ( SUD < I ) *SU» Y IN* 1 »NPT ) 

10 CONTINUE 


IN I T *47 

INIT.48 

IN IT .49 

IN I T .50 

INIT.51 

INIT.52 

IN IT .53 

IN IT .54 

INIT.55 

INIT.56 

INIT.57 

IN I T .58 

INIT.59 

INIT.60 

INIT.61 

IN IT .62 

INIT.63 

INIT.64 

IN IT .65 

INPUT. 2 
INPUT. 3 
INPUT. 4 • 
INPUT. 5 
INPUT, 6 
INPUT. 7 
INPUT. 8 
INPUT. 9 
INPUT. 10 
INPUT. 11 
INPUT. 12 
INPUT * 1 3 
INPUT. 14 
INPUT. 15 
INPUT. 16 
INPUT. 17 
INPUT. 18 
INPUT. 19 
INPUT. 20 
INPUT. 21 
INPUT, 22 
INPUT. 23 
INPUT. 24 
INPUT. 25 
INPUT, 26 
INPUT. 27 
INPUT *28 
INPUT. 29 
INPUT. 30 
INPUT. 31 
INPUT. 32 
INPUT. 33 
INPUT. 34 
INPUT. 35 
INPUT. 36 
INPUT. 37 
INPUT. 38 
INPUT. 39 
INPUT. 40 
INPUT. 41 
INPUT. 42 
INPUT. 43 
INPUT. 44 
INPUT. 45 
INPUT. 46 
INPUT. 47 
INPUT. 48 
INPUT. 49 
INPUT • 50 
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IF (X (2) ,LE • xumioo.Uoo 

noo 1-2 

1200 IF(X(I*1) ,LE • X<in 1300. 1500 
1300 I a 1*1 
GO TO 1200 

1400 1=1' 

1500 TRIP ( 1 ) * TBLU1 (TRtPUP»X( 1> »SUO<I) *1*NUS-I*1> 
RETURN 
END 


INPUT. 51 
INPUT. 52 
INPUT. S3 
INPUT. 54 
INPUT. 55 
INPUT, 56 
INPUT. 57 
INPUT. 50 
INPUT. 59 


SUBROUT INE InSTAB (N.S.PK.RT.RD.TRIP.TE. I SEP * 1 ATT .IN.IT.RI.PKIN* 
1 TR I POP) 

COMMON /SCRAT/ SCR AT (5200) *THT<200) »X(200)*Y(200> .CPC (200) 
COMMON/NSEP/NSEP 
COMMON / TRIPUL / TRIPUP .DUMA 

COMMON / NUS / NUS 

COMMON / INVALK / INVALK 

COMMON / NTURB / NTURB 

’ COMMON / I SEP / DUM1 ♦ IT R I P *OUM 2 . DUM3 
COMMON / KSEP / KSEP 

COMMON / ISTART / ISTART 

COMMON / OU?T / 0U2T 

DIMENSION S < ] ) * PK <1 )..RT < 1 ) *RD ( 1 > .91 <1 > 

IPASS = 1 
TR IPX = TRIPUP 
IE ( TR IPX .EO. l.> 400.500 
400 CONTINUE 

TRIP = S (NUS ) 

500 IF (KSEP .LT. NUS ) 600*700 
600 KELAG=1 

GO TO 800 
700 KELAG = 2 
800 CONTINUE 

1 00 2400 1=1 *N 
RLOG = ALOG(RT(in 
IF(RTU) .LE.650.) GO TO 100 
PKC a .69412 - .23992*RL0G ♦ , 0205°RLOG**2 
GO TO 200 

100 PKC = - .4709 ♦ ,11066*RLOG - .005059 1 *RLOG*»2 
200 CONTINUE 
IN = I 

GO TO (1300.1400) .KFLAG 
1300 IF (KSEP. EO. I) 1200*1400 
1200 CONTINUE 

GO TO 2500 1 

1400 IE < INVALK .EO. 1 ) 1500.1600 
1500 WRITE (6*6000) 

6000 FORMAT (1H1«LaHINAR SEPARATION*) 

GO TO 2500 

1600 IE (PKC.GE.PK (I ) ) GO TO 2000 

IE (TRIP .LE. SUN) .ANO. IN .NE, NUS) 1000 « 2400 
1800 IF ( TRIPOP .EO. 0.) 2400U900 
1900 IF <RT ( I > *GE . 200.) 2000.2100 
2000 IT = IN 

ITRIP = 1 
NSEP = 5 
GO TO 3200 
2100 DO 2300' 1 1 = 1 .N 

IF (RT (II) .GE. 200.) 2200*2300 
2200 IT = II 
IN = II 
ITRIP = 1 
NSEP =5 c 

GO TO 3200 

2300 CONTINUE 1 

2400 CONTINUE . ' ■ 

NTURB = NUS 

TE = 1 * 5 


INSTAB. 2 
INSTAB. 3 
INSTAB. 4 
INSTAB. 5 
INSTAB. 6 
INSTAB. 7 
INSTAB. 8 
INSTAB, 9 
INSTAB, 10 
INSTAB. 11 
INSTAB. 12 
INSTAB. 13 
INSTAB. 14 
INSTAB. 15 
INSTAB, 16 
INSTAB. 17 
INSTAB. 10 
INSTAB. 19 
INSTAB. 20 
INSTAB. 21 
INSTAB. 22 
INSTAB. 23 
INSTAB. 24 
INSTAB. 25 
INSTAB. 26 
INSTAB. 27 
INSTAB. 28 
INSTAB. 29 
INSTAB. 30 
INSTAB. 31 
INSTAB. 32 
INSTAB. 33 
INSTAB. 34 
INSTAB. 35 
INSTAB. 36 
INSTAB. 37 
INSTAB. 38 
INSTAB. 39 
INSTAB. 40 
INSTAB. 41 
INSTAB, 42 
INSTAB. 43 
INSTAB. 44 
INSTAB. 45 
INSTAB. 46 
INSTAB, 47 
INSTAB. 48 
INSTAB. 49 
INSTAB. 50 
INSTAB. 51 
INSTAB. 52 
INSTAB. S3 
INSTAB. 54 
INSTAB. 55 
INSTAB. 56 
INSTAB. 57 
INSTAB. 58 
INSTAB. 59 
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I T = I n ; 

GO TO 3200 
2500 I SEP = 1 

1 F {KSEP . EQ • I > GC TO 2600 
IFIRTUN) .LT • 125.) 3500*2575 
2575 PK7 = .0227-.0007575*RT UN>».000001 157*RT <IN) ®RT UN) 
IF (PKT , GE . PK(IN))GO TO 3300 
2600 I ATT*2 
I T- IN 

NSEP =3 ' 

GO TO 3200 
2800 CONTINUE 

GO TO 2900 , • 

3300 CONTINUE 
NSEP = 2 

2900 IF ( IN .EQ. NUS ) 32 00 » 3000 
C IF TRIP . SUN)* SET TRIP EQUAL TO SUN). 

3000 IF (TRIP »LE. SUN)) 3100*3200 
3100 IT = IN 

1TRIP = 1 
NSEP = 5 
3200 CONTINUE 
RETURN 
END 


INSTAB. 60 
INSTAB. 61 
INST A0 , 62 
INSTAB. 63 
INST AB . 64 
INSTAB. 65 
INSTAB. 66 
INSTAB. 67 
INSTAB. 68 
INSTAB. 69 
INSTAB, 70 
INSTA8.71 
INSTA8.72 
INSTAB, 73 
INSTAB.74 
INSTAB. 75 
INST A8.76 
INSTA8.77 
INSTAB. 78 
INSTAB. 79 
1NSTAB.60 
INSTAB. 81 
INSTAB. 82 
INSTA8 .83 


SUBROUTINE InTBLUND) 

COMMON /SCRAT/ SCRAT (3600) »S (200) *01200) *OU (200) 

COMMON / NUS / NUS 

COMMON / NTURB / NTURB 

COMMON / 1NST0 / INS fB * ITRAN 
DIMENSION G ( 3) *SCRA ( 3) * i*CRA (3) 

COMMON /CONTRL/ 1EN0 
COMHON / SOtN / Y (3) *YP (3) 

EXTERNAL FMAT 

51 = Sill 

52 = SUM) 

15 CALL Person (3 »S1 *S2*Y«FNAT*HEST ,mMIN,ALWNC*YP*G*SCRA»TCRA*INO) 
1 = 1*1 
NTURB = I 

c 

IF < S < I > .GE. S<NUS))IEND=I 
RETURN 

c 

entry setup 

c INITIALIZE SOME TERMS 

I NO = 0 
IEND = 0 
HEST = l.E-05 
HMIN = l.E-08 
S2 * 0.0 
ALWNC = UE-03 
I = ITRAN 
NTURB = I 
RETURN 
END 


INTBL.2 

1NTBL.3 

IN7BL.4 

INTHL.5 

IN7BL.6 

INTBL.7 

INTBL.8 

INTBL.9 

I NT BL * 1 0 

INTBL.ll 

INTBL.12 

INT8L.13 

INTBL.I4 

INTBL.15 

IN7BL.16 

INT8L.17 

IN7BL.18 

INTBL.19 

INTBL.20 

INT8L.21 

INTBL.22 

IN7BL.23 

INT8L.24 

INT8L.25 

INT8L.26 

INT8L.27 

INT8L.28 

INT8L.29 

INTBL.30 

INTBL.31 

INT8L.32 


SUBROUTINE LAMINAR 

COMMON /SCRAT/ AL F S ( 2 OC ) *BET A < 20 0 ) ♦ CD ( 200 ) «CF < 200 > . CF 1 < 200 ) ♦ 

1CF2 U 00) « DEL (200) .DELST2(200) *OEtT (2QO)*H(200) .HHDS(200) « Hi (200)* 

2PK(200) *RDEL(200> vRINSTB<200) »RTRANI200)*PXBAR(200) *RTHETA(200) * 

3S (200) *U (200) *DU (200) *SUD (200 ) »UUO (200) *THE T 12 (200 > *THET21 (200) ♦ 

47HET22(200) .THETA (200) »X (200 > *Y (200) »CPC(20Q) *Z<200) .DUMMY ( 2600 ) 
COMMON / RN« / RN8 
COMMON / NUS / N 

COMMON / NL AM / NL AM 

COMMON / KSFP / KSEP 

COMMON / INVALK / INVALK 


LAMINAR. 2 
LAMINAR. 3 
LAMINAR. 4 
LAMINAR. 5 
LAMINAR. 6 
LAMINAR. 7 
LAMINAR. 8 
LAMINAR. 9 
LAMINAR. 10 
LAMINAR. II 
LAMINAR. 12 
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COMMON / 12 / ZZ(4) ' LAMINAR, 13 

COMMON / OU?T / DU 2 7 LAMINAR. 14 

OIMENSION 0U?(3) »SS (3) LAMINAR. 15 

THE FOLLOWING DATA S. OEFINES COEFFICIENTS FOR THE CUBIC FO LAMINAR. 16 

DATA Cl/. 4140848557 /* C2/-5 .69328 1 0302/* C3/6 . 5043 1 50606 /* LAMINAR. 17 

i C4A/8. 550205550/. C4B/55 .573995455 / LAMINAR. 18 

THE FOLLOWING DATA S. DEFINES COEFFICIENTS FOR THE CUBIC FI LAMINAR. 19 

DATA 01/. 04870877648/. 02/ .781 69607867 /. 03/1.7944503366 /» LAMINAR, 20 

1 04A/2. 401088104 /,0*B/-. 91455761599 / LAMINAR. 2l 

THE FOLLOWING OATA S. DEFINES COEFFICIENTS FOR THE CUBIC Gl LAMINAR. 22 

DATA Ei/. 14979607851/. E2/ .98086769883 /. E3/4 , 1 234674 1 58 /» LAMINAR. 23 

1 E4A/-1 3.13432892/. E4B/- 10.896754750/ LAMINAR. 24 

F (01 .02.03.04. P)* Q4*P*P*P ♦ Q3*P*P ♦ G2«P ♦ 01 LAMINAR. 25 

DF (Q2.Q3.Q4.P ) = 3,*04*P°P. 2.*Q3*P* 02 LAMINAR, 26 

DIMENSION KTaB (24 ) ,PF0 (24) ,PF1 (24) ,PG1 (24) , LAMINAR, 27 

1 PKTAB<9) .SLTAB(9) , HT AB ( 9 ) LAMINAR. 28 


DATA PKTAB/2. 

04, 1.05, 

.52, .25, 

.20, .14, .12, *10, .08/, 

LAMINAR. 29 

1 

SLTA8/1 ,50. 

1.03, ,69. 

.5, ,463 

, .404, .382, .359, .333/, 

LAMINAR. 30 

2 

HTA8/1 .39* 1 

.64, 1.68, 

2.00, 2. 

07, 2.18, 2.23* 2.28, 2*34/ 

LAMINAR. 31 

REAL MU 




LAMINAR. 32 

REAL KT AB 




LAMINAR. 33 

OATA KT AB / 

0.0855, 

0.08, 

0,07, 0.06, 0.05, 

LAMINAR. 34 

1 

0.04, 

0.03, 0 

.02, 0 

.01, 0.0, -0.01, 

LAMINAR. 35 

2 

-0.02. 

-0.03, 

-0.04, 

-0.05, -0.06, -0.07, 

LAMINAR. 36 

3 

-0.08. 

-0.09, 

-0.10*\ 

-0,11,. -0.12, -0.13, 

LAMINAR. 37 

4 

-0* 133/ t 




LAMINAR. 38 

5 

PFO / 

0.0, 

0.0258, 

0.0736, 0.1225, 0.1724, 

LAMINAR. 39 

6 

0.2236, 0 

.2761, C 

.3299, 0 

.3848, 0.4411, 0.4986, 

LAMINAR. 40 

7 

0 , "5572. 

0,6167, 

0.6777, 

0.7404, 0.8053, 0.8729, 

LAMINAR. 41 

8 

0.9433, 

1.0166, 1 

.0929, 

1.1723, 1.2539, 1,3372, 

LAMINAR. 42 

9 

1 ,3686/. 




LAMINAR. 43 

« 

PF1 / 

0.1296, 

0.1236, 

0.1129, 0.1025, 0.0925, 

LAM INAR. 44 

0 

0.0830, 

0,0738, 

0.0651 , 

0-0567, 0.0487, 0.0411, 

LAMINAR. 45 

0 

0,0338. 

0.0270, 

0.0207. 

0.0149, 0.0095, 0.0048, 

LAMINAR. 46 

0 

0.0010, 

-0.0019, 

-0.0039 

-0.0051 , -0.0055, -0. 

0051, LAMINAR. 47 

0 

-0.0047/, 




LAMINAR. 48 

0 

PG1 / 

0.2626, 

0.2535, 

0.2377, 0.2228, 0.2087, 

LAMINAR. 49 

0 

0.1953. 

0.1827, 

0.1710, 

0.1600, 0.1498, 0.1404, 

LAMINAR. 50 

0 

0.1319, 

0.1240, 

0.1161 , 

0.1073, 0.0970, 0.0853, 

LAMINAR. 51 

0 

0.0728, 

0.0601, 

0.0470, 

0.0335, 0.0197, 0.0054, 

LAMINAR. 52 

0 

0.0/ 




LAMINAR. 53 


C CURLtS METHOD 

C NOTATION Zs(THETA/C)«*2 * RNB 
C INITIAL CONDITIONS 
CONST - 5. 

ILITE - 1 

KSEP - N ♦ 1 , 

INVALK = N ♦ 1 

FACT = 2,22 

NT AB = 9 
NKTA8 * 24 

ISAV = 0 

DO 25 1 = 2.50 
IF(UU) .LT.0.1) 

23 I SAV = I 

25 CONTINUE 
26 I SAV = ISAVM 
IF( ISAV.LE.2) 

N 

NLAM 
00 27 
ITEMP 
UID 


23.26 


GO TO 28 
ISAV ♦ 2 


* 0U(I) 

CPC(I) 

27 CONTINUE 

28 SUM 
A 

GI 


a N - 
= N 
I =2 *N 

= ISAV * 1-2 
= U ( I TEMP) 

= DU ( ITEMP) 

9 CPC(ITEMP) 


= 0. 

= 0.45 

* 0. 


$ GINMi X 0. 


LAMINAR. 54 
LAMINAR. 55 
LAMINAR. 56 
LAMINAR. 57 
LAMINAR. 58 
LAMINAR. 59 
LAMINAR, 60 
LAMINAR. 61 
LAMINAR. 62 
LAMINAR. 63 
LAMINAR. 64 
LAMINAR. 65' 
LAMINAR. 66 
LAMINAR. 67 
LAMINAR. 68 
LAM INAR ,69 
LAM INAR.70 
LAMINAR. 71 
LAMINAR. 72 
LAMINAR. 73 
LAMINAR. 74 
LAMINAR. 75 
LAMINAR. 76 
LAMINAR . 77 
LAMINAR. 78 
LAM INAR.79 
LAMINAR. 80 
LAMINAR. 01 


)■ 
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oonon nnono no r» o 



ZSAV 

= 1. 

LAMINAR. 82 


Z(l) 

- ZZU) 

LAMINAR. 83 


PKU) 

= z <1 >• ouu > 

LAMINAR. 84 


THETA (1 ) 

= SORT <Z U )/RN8) 

LAMINAR. 85 


RTHETAtl) = RNB * Ull) * • THET A (1 ) 

LAMINAR. 86 


RDELU) 

= 0. 

LAMINAR. 87 


FI 

= TPLUHPK U ) *.aA8*PFlf3*NKTA8> ' 

LAMINAR. 88 


SL2 

= F l 

LAMINAR. 89 


SL 

= SORT <SL2) 

LAM INAR.90 


CF U ) 

■ o. 

LAM INAR*91 


F 

= o. 

LAM INAR.92 


IF <OU(i > 

« EQ. 0.) 50*75 

LAMINAR. 93 

SO 

HU) 

= 2*554 

LAMINAR. 94 


GO TO 85 


LAMINAR. 95 

75 

HU ) 

= (SL-2,*PKU )“F*.5)/PK(1) 

LAMINAR. 96 

05 

DEL U > 

= HU) ® THE T a U ) 

LAMINAR, 97 


NM1 

= N - 1 

LAMINAR. 98 


NM2 

= N - 2 

LAMINAR. 99 


UMIN1 

= TSlUl I-2.*SU) »$*Us2.N) 

LAMINAR, 100 


UO 

- TPLU1 <-S (2) *S*U*2*N> 

LAMINAR. 101 


U201 

c TBlUI IS (N) *S< ?) »5*U*2*N) 

LAMINAR. 102 


U202 

= TBLUI (S {N)*2,*S<2> *S*U»2*N) 

LAMINAR, 103 


55U) 

- 0. 

LAMINAR, 104 


SS < 2 ) 

= S (2) 

LAMINAR. 105 


SS ( 3) 

= S (3) 

LAMINAR ,106 


SS0L0 

= SS<3) 

LAMINAR. 107 


0U2U) 

= <IJ(3)-2.»UU )*UMINl)/<4.*5<2>«*2) 

LAMINAR. 109 


DU2 1 2 > 

* <UI4)-2.«U(2) ♦U0)/<4.*S<2>»«2) 

LAMINAR. 109 


DU2 13) 

= <U(5)-2«*U(3) «U(1) >/<4.« <S(3)-S<2> >»*2> 

LAMINAR , 1 10 




laminar .11] 


INITIALIZATION ENDEO WITH PRECEDING STATEMENT* 

LAMINAR, 112 




LAMINAR. 113 




LAMINAR. 1 14 


00 2700 

I = 2.N 

LAMINAR, 1 15 


U5IM1 

= U(I-1)*«5 

LAMINAR, l 16 


U51 

- U5IMI 

LAMINAR. 117 

200 

IF ( I *EQ 

, 2) 400*300 

LAMINAR.! 18 



.. 

LAMINAR. 119 




LAMINAR. 120 


CALCULATE NN WHERE NN IS THE NUMBER OF INTEGRATION STEPS TO BE 

LAMINAR. 121 


TAKEN IN 

the interval (S(i-n*su>). 

LAMINAR. 122 




LAMINAR, 123 

300 

NN = 

c AB? ( DU < I > > ♦ A8S<DUU-1») )*. S/CONST ♦ 

LAMINAR. 124 


IF (DUU) 

• GE * 0 « ) N N* 1 

LAMINAR, 125 


GO TO 500 

LAMINAR, 126 

400 

NN 

= I 

LAMINAR .127 

500 

OSOV2 = . 

5«<SH>-SU-1)>/FL0AT<NN) 

LAMINAR. 128 


OS 

* 2 , °DSOV2 

LAMINAR. 129 




LAMINAR. 130 




LAMINAR. 131 


THE FOLLOWING DO-LOOP INTEGRATES THE MOMENTUM-INTEGRAL EQUATION 

LAMINAR .132 


FROM S(I 

-1) TO SU) IN NN STEPS* 

LAMINAR. 133 




LAMINAR. 134. 


DO 1300 

KK= 1 .NN 

LAMINAR. 135 


S2 = 

S(I-l) ♦ FLOAT (KK ) «DS 

LAMINAR. 136 


U2 = 

TBLUI <52*S*Utl »N> 

LAM INAR.137 


U52 

= U2«*5 

LAMINAR, 130 


0U2T = TBLUI (S2,SS*0U2*1*3> 

LAMINAR. 139 


OUT = TBLUHS2*S«DU*1*N> 

LAMINAR. 140 

700 

ITER 

= 0 

LAMINAR. 141 


TIM1 

* U. * FACT«GINM1 )«U51 

LAMINAR. 142 

eoo 

ITER 

= ITER *1 

LAMINAR. 143 


T 1 

= U. ♦ F ACT°G I ) tf U52 

LAMINAR. 144 

900 

SUMTEMP 

= SUM ♦ ITIH1 * T I ) ®0S0V2 

LAMINAR. 145 


Z(D 

* A » SUMTEMP / U2*»6 

LAMINAR. 146 


IF ( Z ( I ) , 

LT.0.) GO TO 1175 

LAMINAR. 147 


PKU) 

= Z { I ) *CUT , 

LAMINAR. 148 


IFIPK (I) 

•LT.-.12) 1000*1100 

LAMINAR. 149 

000 

INVALK = 

I 

LAMINAR. 150 
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non 


REPRO^UCnr TTY OF THE ' 
ORIGINAL PAl^ IS POOR 


1 0 ! 0 

6400 

1020 


1100 


IF(ZU) .LT. 0.) 1010*1020 
WRITE (6*6400) I 
FORMATt* INVALID K. Z(M3*) 
GO TO 1175 

THETAU)=SGRT<Z(I)/RNfl) 

R THETA 1 I ) =RNB*U ( I ) * THETA < I ) 


0.«/« ANALYSIS 15 TERMINATED.*) 


GO TO 2900 

MU = Z( I)**2 ® U2 * DU2T 

IF(PKII) .C-T. .0555 .AND. KK .EO, NN> GO TO 2100 
F0 = TBLOl (PK (I ) *KTAB*PFO* 1 *NKTAB> 

GO a 0.66 ♦ 3 .*PK ( I > 

IF (OU { I > oGE *0 • ) MU * 0. 

F = FO - MU«G0 

GI a F-0.45 ♦ 6.*PKU> 

IF<DU(I)*GE*0.) GO TO 1200 

IF(1TER.GE.2.AND.ABSU.-Z(I)/Z$AV).LT..0001) GO TO 1200 


ZSAV = Z < T > 

IF< ITER. LE. 25) GO TO BOO 
1175 INVALK = I 

7 H£T A { 1 ) = THETA(I-l) 
RTHETA(I) = RTHE7AU-1) 
GO TO 2900 - 

1200 SUM = SUMTEMP i 

IFIDU(I) .GE.O.) GI a 0. 
GINM1 = GI 
U51 = U52 

1300 CONTINUE ; 


FOLLOWING EVALUATES H U ) *CF U > *OEL ( I) 


1500 IF(ZU) .LT. 0.) GO TO 1175 

THETA(I)-SQRT(Z(!)/RNB) 

RTHETA U ) aRN^ * UU) * THETA(I) 

FI = TBLUl (PK <1 ) *KTA0*PEl * 1 *NKTAB) 
GI * T8LU1 (PK < I ) *KTAH *PG1 * 1 .NKTAP) 

) IF (DUU ) .GE.O.) MU = 0. 

SL2 a FI - MU*G1 

IF (SL2 .LE. 0.) CO TO 2300 
SL = SORT (SL2) 

CF(I) = 2.«SL/RTHETA<I) 

PKT = PK ( I ) 

IF ( ABS (PKT ) .LT. .01 ) 1600*1900 
IF (PKT .LT. 0. ) 1700*1600 


1600 

1700 


HU) 


1 

2 

GO TO 
1800 HU) 

1 

2 

GO TO 
HU) 
DEL (I) 


=' I 5 /SQRT (Ftni *D2.D3.O40*PKT) - MU*F <E1 *E2*E3*E4B*PKT) ) 
* (DF <02*03 1 04B* PKT) - MU«DF (E2*E3 *E4B » PKT ) > 
-.5*(CF(C2*C3*C48*PKT) - MU*3.) - 2. 


2000 


■5/SQRT(F(Dl*02*03*D4A*PKT) - MU*F (El *E2*E3*E4A»PKT) ) 
*<DF (02*03*04 A* PKT) - Ml)*DF (E2*E3*E4A*PKT)) 


1900 

2000 


-.5® <CF<C2»C3*C4A*PKT) 

2000 

a (Sl-F«.5)/PK U) -2. 

= HU)«THETAU) 


MU»3.) -2, 


2100 


RDELU) = HU)«PTHETAU) 
GO TO 2200 

THETA (1 )=5QRT (Z U1/RN8) 
SUM = SUMTEMO 

IF (DU II ) .GE.O.) -GI = 0. 
GINMI = GI 
U5I » U52, 

RTHETA(I)= RnB* UU) « 


H(I) 

SL 

CF(I) 
DEL (I) 
RDELU) 


s TBiUl <PK(I) *P. 


THETA (I) 

(TAB*HTAB*1 .NTAB) 

= TBLUl (PK (I) *PKTA8*SLTAB»i»NTAB) 
2. ti 5L/RTHETA( l) 
a H ( I ) »THETA ( 1 ) 

= H(I)*RTHETAU) 


2200 


CONTINUE 
SSU) a SU) 
IF(I.EO.N) GO 


TO 2210 


LAMINAR. 151 
LAMINAR. 152 
LAMINAR. 153 
LAMINAR. 154 
LAMINAR. 155 
LAMINAR. 156 
CAM INAfi . 157 
LAMINAR. 158 
LAMINAR. 159 
LAMINAR .160 
LAMINAR. 161 
LAMINAR .162 
LAMINAR. 163 
LAMINAR. 164 
LAMINAR, 165 
LAMINAR. 166 
LAMINAR. 167 
LAMINAR. 168 
LAMINAR, 169 
LAMINAR. 170 
LAMINAR. 1 71 
LAMINAR. 172 
LAMINAR. 173 
LAMINAR U 74 
LAMINAR. 175 
LAMINAR. 176 
LAMINAR. 177 
LAMINAR. 178 
LAMINAR. 179 
LAMINAR. 180 
LAMINAR. 181 
lam INAR. 182 
LAMINAR. 183 
LAM INAR .184 
LAMINAR. 185 
LAMINAR. 186 
LAMINAR. 187 
LAM INAR. 188 
LAMINAR. 189 
LAMINAR. 190 
LAMINAR. 191 
LAMINAR. 192 
LAMINAR. 193 
LAMINAR. 194 
LAMINAR. 195 
LAMINAR. 196 
LAMINAR. 197 
LAMINAR. 198 
LAMINAR. 199 
LAMINAR. 200 
LAMINAR. 201 
LAMINAR. 202 
LAMINAR. 203 
LAMINAR. 204 
LAMINAR. 205 
LAMINAR. 206 
LAMINAR. 207 
LAMINAR. 208 
LAMINAR. 209 
LAMINAR, 210 
LAMINAR, 21 1 
LAMINAR. 212 
LAMINAR, 213 
LAMINAR, 214 
LAMINAR. 215 
LAMINAR. 216 
LAMINAR. 217 
LAMINAR. 218 
LAMINAR, 219 
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SS<2> = $<I*l) 

SS < 3 ) s S<I*?> 

60 TO 2220 

2210 SS < 2 ) = SHI ♦ S < 2) 

ss < 3 1 - $<n ♦ sn> 

2220 CONTINUE 

GO TO (2250*2250,2700)* RITE 
2250 DU2 ( 1 > = 0U2 < 2 ) ' 

OU2 < 2 > = 0U2 <3 > 

GO TO (2300*2600)* RITE 
2300 IF (1*4 .GT. N) 2500*2400 

2400 0U2 < 3 ) = <U(tO)-2.*U(I*2>* U (I ♦ 1 ) > / ( <S <1 *3) -S U * 2 ) ) * (S ( 1 *2) 

m ) > 

GO TO 2700 

2500 DU2 ( 3 ) - U)201-2.*U<N-l)*U(N-3)>/<4.«<S<N>“S<N-l))* # 2> 

ILITE = 2 
GO TO 2700 

2600 0U2 < 3 ) = <U202-2. <, U<N>*U<N-2>)/(4.<M$<N>-S<N-H>«*2 ) 

ILITE = 3 
2700 CONTINUE 

GO TO 2900 

2800 KSEP =1 ' 

2900 CONTINUE 
RETURN 
ENO 


LAM 

LAM 

LAM 

LAM 

LAM 

LAM 

LAM 

LAM 

LAM 

LAM 

LAM 

>S(IRAM 

lam 

LAM 

lam 

LAM 

LAM 

lam 

lam 

lam 

LAM 

LAM 

LAM 

lam 

LAM 


INAR.220 
INAR. 221 
INAR.222 
INAR • 223 
INAR ,224 
INAR. 225 
INAR. 226 
INAR. 227 
INAR. 228 
INAR. 229 
INAR .230 
INAR .231 
INAR. 232 
INAR. 233 
INAR. 234 
INAR. 235 
INAR. 236 
INAR.237 
INAR. 238 
INAR. 239 
INAR. 240 
INAR. 241 
INAR. 242 
INAR. 243 
INAR. 244 


SUBROUTINE MFRSON <N ,U * Z » Y *FUNC *H,HM IN *E *F ,G*S,T* 1NO) 
DIMENSION Y<1).F<1)*G<1 >*S<1) *T()> 

X = u 

IF <HM IN.LT.O . ) HMIN*.0l*A8S <H) 

IH=1 

I R= 1 , i 


i i - , 

IF (E.GE.l.) IC = 0 . 

E5 = A8S (E ) *5 • 

IF (Z.GT .X.ANO.H.LT.O. .OR.Z .LT.X.AND.H.GT.O.) H*-H 
10 IFUC.EO.O) GO TO 14 

xs=x , , i 

00 12 J=1 *N , 

12 G < J > = Y < J) j 

14 H$ = H , ; 

Q=X*H-Z 
IE= 1 

IF<H.GT.O..ANO.O.GE.O..OR.H.LT.O..ANO.Q.LE.O.) go TO 16 
GO TO 18 
16 H = Z-X 
I R - 0 

- 18 H3=H/3. 

INO = 0 

DO 75 ISW=1 *5 

CALL FUNC(N*X*Y?F ♦ IND) 

IF < I N D .EQ. 1) GO TO 9999 

DO 70 1=1 *N 

0=H3«F<I) 

GO TO <21 *22,23*24*25) *1SW 

21 T < I ) =0 
R=Q 

GO TO 26 

22 R=.5« <Q*T < I) ) 

GO TO 26 

•23 R=3.»Q 

S ( I ) =R . 

R=.375«<R*T(!>> } 

GO TO 26 , 

24 R = T < I ) *4 . *0 
TU)=R 


NERS0N.2 
MERSON. 3 
MERS0N.4 
HER SON. 5 
MERS0N.6 
MERSON.7 
MERS0N.8 
ME R SON . 9 
MERSON, 10 
HERSON* 1 1 
MERSON. 12 
MERSON. 13 
MERSON. 14 
MERSON. IS 
HERSON. 16 
MERSON. 17 
MERSON. 18 
MERSON. 19 
MERSON. 20 
MERSON. 21 
MERSON. 22 
MERSON. 23 
MERSON. 24 
MERSON. 25 
MERSON. 26- 
MERSON. 27 
MERSON. 28 
MERSON. 29 
MERSON. 30 
HERSON. 31 
MERSON. 32 
MERSON. 33 
MERSON. 34 
MERSON. 35 
MERSON. 36 
MERSON. 37 
MERSON. 38 
MERSON. 39 
HERSON. 40 
MERSON. 41 
MERSON. 42 
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r> r> 


R= 1 ,S® (R-S Cl)) 

GO TO 26 

25 R=.5° <G*T< I) ) 
Q=ABS(2.«*R-X.5MC*S(I)> ) 

26 YU)*GII)*R 

IF ( ISW.NE.5) GO TO 70 
IF(IC.EQ.O) GO TO 70 
R = AB5(VUM 

IF(R.LT.l.E-03> GO TO 28 
R=E5°fl 
GO TO 30 
28 R=£5 

30 IF<Q,GE.R.ANO,IX.EGol) 00 TO 32 
GO TO 50 
32 IRal 
I H = 0 
H= «5°H 

1F(AB$(H> .GE.HMIM GO TO 40 
H=SIGN(HNIN*H) 

! X=0 

40 00 42 J=1*N 
42 

x=xs 

GO TO 14 

50 IF (Q.GE. .03l?5»R) IE*0 

70 CONTINUE 

GO TO <71*75*73*74*75) * I SW 

71 X=X*H3 
GO TO 75 

73 X-X ♦ ,5°H3 
GO TO 75 

74 X-X * ,S«H 
75 CONTINUE 

IF ( 1C.EQ.0) GO TO 80 
IFIIE.NE.IH.OR*IF*NE.IR) GO TO 77 
H=2.*H 
IX = I 
77 I H® l 
BO CONTINUE 

IF < IR.EQ.l) GO TO 10 
H = HS 

9999 RETURN 
ENO 


MERSON. 43 
MERSON. 44 
MERS0N.45 
MERS0N.46 
HER SON .4 7 
MERS0N.48 
MERSON. 49 
MERSON.50 
MERSON. 51 
MERSON. 52 
MERSON, 53 
MERSON. 54 
HERS0N.55 
MERSON. 56 
MERS0N.57 
MERSON, 58 
MERSON. 59 
MERSON. 60 
MERSON, 61 
MERSON. 62 
MERS0N.63 
MERSON, 64 
MERSON. 65 
MERSON. 66 
MERSON. 67 
MERSON. 68 
MERSON. 69 
MERSON, 70 
MEHS0N.71 
HERS0N.72 
MERS0N.73 
MERSON. 74 
MERSON * 75 
MERSON. 76 
MERSON. 77 
MERSON. 78 
MERSON. 79 
MERSON. 80 
MERSON. 81 
MERSON. 82 
MERSON. 03 
MERSON. 84 
MERSON. 85 


SUBROUTINE OUTPUT 

COMMON /SCRAT/ At FS <200 ) *BET A ( 200 ) *CD < 200 ) *CF (200 > *CF 1 <200 ) * 

1C F 2 (200) >QEL < 2 00 ) »DELST2(200) »DEL T (200) *H(200) .MHOS (200) »H1 (200) * 
2PK (200) ,ROEL (200 ) *R INSTB (200) *RTRAN(200).PKBAR(200>*RTH(200). 

3S (200) *U(200) *OU(200) *SUO(200) *UUD <200 > *THET 12(200) *THET2l (200) * 
4TMET22(200) *THT( 200) * DUMMY (3400) 

COMMON / SOtN / Y(3)*YP(3) 

EOUIVAtENCE < Y(1)*THETA),( Y(2)*P ) ♦ ( Y(3),TH) 

COMMON /USX X/ US * ' DUS * ALPZ * ALP * K * CAS . KDA 
COMMON /FSOL/TRTK *TBET A y TB * THQS *THHOS ♦ TCF1 * F * OGOH 
COMMON /RPOLY/ C*C*E*J* CCDH * DOOM * OEOH * OJDH 
COMMON /MATX/ A(3*3) * B(3) * IPR(3) 

COMMON /XXXX/ X * DSDX * XW * YX * XS * YS ? 

COMMON / NTURB / NTUPB 
REAL KOA*K*J ; 


I 

e NTURB 

alfs< I) 

a AtP 

H ( I ) 

= TP 

THT (I) 

a THETA 

CFl ( I) 

= TCF1 

MHOS ( I ) 

= THHOS 

RTH(I) 

= TRTH 


OUTPUT. 2 
OUTPUT. 3 
OUTPUT. 4 
OUTPUT, 5 
OUTPUT. 6 
OUTPUT, 7 
OUTPUT. 8 
OUTPUT. 9 
OUTPUT, 10' 
OUTPUT. 1 1 
OUTPUT. 12 
OUTPUT. 13 
OUTPUT, 14 
OUTPUT. 15 
OUTPUT. 16 
OUTPUT. 17 
OUTPUT. 18 
OUTPUT. 19 
OUTPUT. 20 
OUTPUT. 21 
OUTPUT. 22 
OUTPUT. 23 
OUTPUT. 24 
OUTPUT. 25 


' i 
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SET A ( I ) * TflETA 

THET 12(1) s p*J 
THET21 m* P ti E 
THET22(I)= PflC*Te 


CF C I > 
CF2(I> 
DELT(I) 
DEL ( I > 


10 

15 


a CFH1)/C0S(SETA<I>) 

= CF2 ( 1 )*TAN(&ETAU> ) : 

= tht m«HH0s<n * 

= TMTU)*H(I) ; 

DELST2U>= P»D 

CD ( I ) a ?»*THETA<MUS »C0S < Al FS (I > - ALPZ ) > *° < <TH*5 • ) /2 • 1 

RETURN , ’ 

END 

SUBROUTINE PRINTER 

COMMON /5CRAT/ ALES ( 200 > *8E T A ( 2 00 > *CO ( 200 ) ♦ CFD (20 0 > * CF1 < 20 0 ) * 

1CF2 (20 0 ) *DEL <200> .0ELST2 (200) * DELTA (200>*H(200> *HHO5<200 ) * HI (200) 
2PK ( 200 ) *ROEL (200)»RINSTB(200)*RTRAN(200>*PH8AR(200)*RTH(200)t 
3S (200) *U(200> » DUDS (200) «SUD (200) ,UUD(200) *THET12 (200) *THET2 1(200) 
ATH£T22(200)*THT(200)»X(200)*Y<200)*CPC(200)*Z(200) « DUMMY (2600) 
C0MM0N/TITLE/TITLE(8) 

C0MM0N/1PR1NT/IPRINT*KSKIP * 

COMHON/NSEP/NSEP <■ 

common/rnb/rnb 

COMMON/ SANGLE/S ANGLE 

COMMON/CL /CL.COT*COF* COP *DUM<2)* CM 

COMMON/NS 10E/NS IDE 

COMMON / N8L / NBL 

COMMON/MTRAN/ HTRAN 

COMMON / INSTfl / INSTB* ITRAN 

COMMON/MSEP/MSEP 

COMMON/I 30/ 13D 

C0MM0N/ITR/1TR*ITRMAX 

WRITE (6*7800) 

WPITE(6.79Q0) (TITLE(!)*I s 1 * © > 

WRITE (6*6700) 

WRITE (6*6800) RNG tS ANGLE * ITR*NSID£ 

IF (ITR.GT.I. AND.ITR.LT. ITRMAX) GO TO SO 

IF(I3D.EQ.l) GO TO 1 

GO TO 2 

CONTINUE 

ITRAN = 1 

GO TO 80 

CONTINUE 

WRITE (6*6600) 

WRITE (6*7600) 

I * 1 

IF < ITRAN. GE. 190) 

GO TO 15 
1=1* KSKIP 
CONTINUE 

WRITE(6*6AOO>I*X<I)*S(I)*U<I) *DUOS U ) *H(I ) .THT ( I) t 
CFD < I ) 

IF ( I »GT .200 ) I a 200 
IF ( I *GE • 1 97 ) GO TO 21 
IF ( I.EO.ITRAN) GO TO 25 
IF((I ♦ KSKIP) .GE. ITRAN) 20*10 
ITRAN 
GO TO 15 
NSEP = 6 
CONTINUE 

GO TO (60*65 *70*80*75*400) *NS£P 
WRITE <6*7100) 

GO TO 80 
WRITE (6*7200) 

GO TO 400 
WRITE (6*7300) 

GO TO 80 
WRITE (6*7400) 

CONTINUE 


NSEP=6 


20 I 

21 
25 

60 

65 

70 

75 
80 
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IF (MTRAN.EQ.2) GC TO 400 
WRITE (6*6900) 

WRITE (6*7700) 

I = I TP AN 
GO TO' 35 

30 I = I ♦ KSKlP 
35 CONTINUE 

RETAU) = BETA(I) *57.29578049 

WRITE (6*6500) I*X(I>*S(I>*U(I)*H(1> tOELTA ( I ) »THT < I> *BETA< I ) ♦ 
I RTH(I>*CEO(I) 

IF(I.EQ.NBL) GO TO 50 
IF ( ( I ♦ KSK IP) .GE.NBL) 40*30 
40 I = NBL 
GO TO 35 
50 CONTINUE 

IF (MTRAN.GE .2) GC TO 400 
* IF (MSEP.EO. I ) WRITE (6*7500) 

IFUPRINT.EU.O.OR.SANGLE.EQ.O.) GO TO 300 
IFdTR.GT.l .AND.1TR.LT.ITRMAX) GO TO 300 
WRITE (6*7000) 

WRITE (6*6100) 

WRITE (6*6000) 

WRITE (6*6200) * 

I = ITRAN 

GO TO 110 

100 I * I *K5K I P 

110 CONTINUE 

150 ALFS(I) 1 * 3 ALFS(I>*57. 29578049 

WRITE (6*6300) I *X ( I) *S( I > *OUOS (I)*ALFS(I)*0ELST2(I)t 
1 THET12U) *THET21 (I) *THET22(I)*CF1U) 

IF C I .EQ. NBL> GO TO 300 
IF ( ( I *KSK IP ) *GE. NBL) 200*100 
200 I - NBL 

GO TO 150 
300 CONTINUE 

WRITE (6*8000) CL 
WRITE (6*8100) COF 
WRITE (6*8200) CDP 
WRITE (6*8300) COT 
WRITE (6*8400) CM 


400 CONTINUE 
RETURN 

6000 FORMAT ( 1 H *3x**I*6X *X» 9X *S* 9X *DU/OS* 6X *ALPHA» 

,| 7X *DEL® 11X ®THETA* 9X *THETA* 9X «THETA* 

6100 FORMAT <1H0*55X*IF®) 

6200 FORMAT ( 1 H , 55X **2 * 1 5X* 1 2* I2X *21*l2X *22* 10X * I * //) 
6300 FORMAT (3X*I3.2X*2(F6.4*4X)*E10.3*3X*F6.2*4X 


10X *CF* ) 


1 5(E10»3»4X) ) 

6400 FORMAT (I5*2M0.4.5(E12.4*5X)) 

6500 FORMAT (I5*3X*2(F6.4«4X) *F5.3*4X*6(E10.3*4X)> 

6600 FORMAT UH0»5nX*«LAMINAR BOUNDARY LAYER DEVELOPMENT*/) 

6700 FORMAT (1H0.3SX**RE« 9X *SWEEP ANGLE® 9X • ITER AT ION* 9X *SURFACE*1 
6800 FORMAT (1HO*3oX*E10.3*5X*EI / ).3*10X»I5*10X*I5) 

6900 FORMAT ( IH0*50X**TURBULENT BOUNDARY LAYER DEVELOPMENT*/) 

7000 FORMAT ( IHO *50X**CR0SS-FLOW PARAMETERS*) 

7100 FORMAT (1H0*5X**NATURAL TRANSITION*) 

7200 FORMAT ( 1H0*5X *«LAM INAR SEPARATION NO RE ATT ACHMENT*) 

7300 FORMAT (1H0«5X**LAMINAR SEPARATION REATTAChMENT AS TURBULENT 
1BOUNDARY LAYER®) 

7400 FORMAT (1 HO *5X * ®80UND ARY LAYER TRIP*) 

7500 FORMAT (IH0*5X** TURBULENT SEPARATION*) 

7600 FORMAT UH0*2X*«I® 7X «X* 8X *S* 8X *US* 14, X ®DU/DS« 14X 
j *h« 1 4X ®THET AS* IOX *CFS*/> 

7700 FORMAT (1H0*2X**I* 6X *X* 8X «S* 8X *US* 9X *H* 13X *OELT AS* 8X 
1 *THETAS* 8X *BET A* 1 IX *RTHETAS* 9X *CF5*/) 

7800 FORMAT UNO. 50X** INCOMPRESSIBLE BOUNDARY LAYER CALCULATIONS*//) 
7900 FORMAT (1H0*50X*8A10> 

8000 FORMATUM *5X*26F UFT COEFFICIENT »*F10.6) 

8100 FORMAT ( 1H *5*»26F SKIN FRICTION ORAG - **F10.6> 
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> REPROTHTr-- ~ tty of the 
ORIGIN is POOR 


8200 FORMAT (1H »5X*26H PRESSURE DRAG *»F10.6) 

8300 FORMATUH »5X .26HPR0F ILE DRAG COEFFICIENT «*F10.6) 

8400 FORMATUH .5X.26M MOMENT COEFFICIENT **F10.6) 

END 

SUBROUTINE SCHORD (N ♦ X »Y t S >’ 

DIMENSION X(l)rYll).SU) 

C COMPUTE ARC-LENGTH ALONG WALL 

5 C X > =0 • ' 

DO 200 1 = 2 .N 
0Dx=x<n-xu-i> 

ODY*Y < D-YU-1) 

DD5=SQRT (0DX**2*DDY<»*2> 

200 s<n=s<i-n*oD 5 ■ 

RETURN 

END 

SUBROUTINE SMOOTH (N.XX*YY*NOUT*X .S*Y) 

0 I MENS I ON XX<1)*YYU> *X(1> *Y(1>*SU> 

FNMl=NOUT-l 
NM1 = NOUT-1 
OEL=XX(N)/FNMl 
XU)=XXU> 

X(NOUT) = XX (N) 

DEL = (XX(N)-XXU))/FNM1 

DO 200 I=2»NMl 
200 XU) a X < I — 1 > *DEL 
Stl) = YY ( 1 ) 

S(NOUT) =YY <N > 1 

C PERFORM 2ND ORDER LAGRANGE INTERPOLATION. 

00 300 I =2.NMl 

S(I) = T8LU1 IXU) »XXfYY*l*N> 

300 CONTINUE 
RETURN 
ENTRY SDERV 

CALCULATE DERIVATIVES. 

DO 450 I=2»NM1 

Y(l) sHSUM)-Sm)/(X(I*l)-X(I))MSU»-SU-l))/(X(I)-XU-l) 

1 >)*.5 

450 CONTINUE 

YU) = TBLUl (XU ) *X(2) »Y(2> ,l*N0UT-2> 

Y(NOUT) * TRLU1 (X(NOUT) »X»Y*1*N0UT-1) 

RETURN 

END 

SUBROUTINE TRANSIT (TRIP) 

COMMON /SCRAT/ ALFS ( 2 00 > ♦ Bt T A < 20 0 > *CD { 2 00 ) »CFO < 200 > .CF1 ( 20 0 ) ♦ 

ICF2 (200) .OEL (2Q0) .DELST2(2Q0) .DEL T (200) »H<200) *HHOS(200) « Hi (200) 9 
2PK (200) *RDE L ( 200 > ,R INSTB (200) »RTR AN (200 ) »PkBAR< 200> .RTH(200) t 
3S(200) . U < 2 0 0 ) ♦ DU (200) ,SUO (200 ) *UUD(200)*7HET12(200)»THET21(200)» 
4THET22(200)»THT(200),X<200>»Y(200) *CPC (200) ♦ Z ( 200 > » DUMMY (2600) 
COMMON / NUS / NUS 

COMMON / NL AM / NLA^ 

1 COMMON / 1NSTB / INSTBt ITRAN 
COMMON / HTUR8 / HTURB 

COMMON / ISEP / ISEP ♦ ITRIP» IATT*TE 

COMMON/NSEP/NSEP 
INST8=0 
I SEP=0 
I TR IP=0 

1 AT T = 0 

itran-o 

TE=0. 

CALL INSTAB (NLAM.S tPK .RTH. RDEL.TR IP*TE ♦ I SEP * IATT ♦ INSTB * ITRAN* 
IRINSTB.PKlNS, TRIPOP) 

IF ( INSTB .EQ. NUS) 100.200 
100 ITRAN = NUS 
NSEP* 6 
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GO TO 600 

IFITE) 600*300 *600 
JFUATT-ISEP) AOO*5QO*SOO 
NLAHsINSTB 
ITRAN=INST8 
GO TO 600 
INP1=INST8*1 

CALL TRCALC (NLAH*INP1*S*PK*RTH*TRIP* I TRIP * I SEP* I ATT * 
1 TTRAN ,RTRAN*PK8AR*HTURB*TE> 

600 CONTINUE ; 

RETURN 
‘ END 


200 

300 

A00 


500 


SUBROUTINE TRCALC (N*INPl*5*PK*RT*TRlP*ITRlP*lS£P*IATT*lT* 

\ RTN.PK0,HT*TE) 

DIMENSION S < 1 ) *PK U ) *RT II ) *RD< 1 ) *RTN(1 ) *PK0 U > 

COMMON /SCR At / SCRATI5200)*THTI200)*X(200).T(200>*CPC<200) 

common/nsep/nsep 

COMMON / ISTART / ISTART 

COMMON / NUS / NUS 

COMMON / KSEP / KSEP 

COMMON / INVALK / INVALK 

COMMON / DU?T / 0U2T 

COHMON/PH1L/ IPHIt 
COMMON/ I TR/1TR999 ♦ ITRM99 


1 PASS- 1 

IFUT.NE.O) 100*200 
100 RTNIIT) = RT (IT > 

NSEP = 5 

IF (TRIP*GT«S{IT1) NSEP * 3 
GO TO 2200 
200 TE=0. 

SKOX=0. 

IF (KSEP .LT. N) 300*A00 
300 KFLAG = 1 
GO TO 500 
A 00 KFLAG = 2 
500 00 1600 I =* I NP 1 *N 


I T = I 

C TEST FOR SEPARATION 

1100 GO TO (1200*1300)*KFLAG 
1200 IF (KSEP .EG. I) 1250*1300 
1250 CONTINUE 

GO TO 1800 

1300 IF ( INVALK .EG. I) 1AOO*1500 
1AO0 CONTINUE 

IF UTR999.LT .IPHIL1GO TO 1800 
WRITE (6*6000) 

6000 FORMAT <1H1*LAMINAR SEPARATION®) 


GO TO 1800 
1500 CONTINUE 

DELS=sm-s<i-n 

PKST AR= .5® (PK ( 1 1 *PK 1 1-1 > > 

SKDX=SKDX*PKSTAR«DELS 

PK8 ( I) =SKDX/ (S ( I ) -S UNPl-1 ) ) 

RLOG = ALOG(RTU)) 

IFIRT(I) .LE.750.) GO TO 600 
IF(RT (I ) .LE.l 100.) GO TO 700 

PKBC = 1.59381 - »A55A3®RLOG ♦ .0 3253A*RLOG**2 
GO TO 800 

600 PKBC » - .0925 ♦ .00007*RT(I> 

GO TO 000 

700 PKBC = - .12571 ♦ ,0001 1A236*RT ( I ) 

800 CONTINUE 

IF(PKBC.GE.PKBII) ) GO TO 2100 
IF (TR IP-5 ( I > ) 1700*1700*1600 . 

1600 CONTINUE 


TE*1. 


GO TO 2600 
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1700 ITRIP=1 
NSEP = 5 

RTNUT) = 7BLUl<TRIPfS»RT»l*N) 

S<IT)=TRIP 
GO TO 2200 
1800 I SEP- 1 

IF (KSEP .EQ. I) GO TO 2000 
IF<RT<in *LT . 125.) 2600.1950 
1950 PKT = .0227-.0007575«RT < IT > -.000001 157*RT <IT)«RT I1T) 
IF <PKT ,GE . PKUT)) GO TO 2600 
2000 I ATT=2 

NSEP =3 
GO TO 2200 
2100 CONTINUE 
NSEP = 1 
2200 CONTINUE 

HT = 1 .4754/ALOG10<RT MTU ♦ ^#9698 
GO TO 2700 i 

2600 CONTINUE 
NSEP » 2 
2700 CONTINUE 
RETURN 
ENO 
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SUBROUTINE TURB 
COMMON/MSEP/MSEP 

COMMON /CL / DUM<4) »SEPTRB(2) 

COMMON / CONTRL/ IENO 
MSEP = 0 
SEPTRBU) = 0. 

CALL SETUP ( IND) 

CALL INFAT <SS* INC) 

CALL OUTPUT 
CALL 1 STEP ( STEP) 


20 CONTINUE 

CALL INTBL(INO) 

CALL OUTPUT ■ 

IF < IND -EQ* 0) 30*21 

21 CONTINUE 
HSEP = 1 
SEPTRBU) = 1* 

GO TO 40 

30 IF UEND .EQ, 0) GO TO 20 
40 RETURN 
END 


TURB, 2 
TURB • 3 
TURB, 4 
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UBROUTINE XSTEP ( STEP ) 

OMMON /USX X / US * OUS * ALPZ ♦ ALP * K * DAS , KOA 
OMMON /FSOL/ RTF * BETA ♦ TB . FDS ♦ HHDS * CF 1 * F * OGOH 
OMMON /XXX X / 1 X * D50X * XW . YW * *S * YS 
EAL KOA.K.J 


FXNEW = COS ( ALP ♦ BETA) » 

FYNEW = SIN < ALP ♦ BETA) 

XSNEW = COS (ALP) 

YSNEW » SlN(ALP) 

xw = XW ♦ STEPMFXQLO ♦FXNEW) 

YW = YW * STEP* (FYOLD ♦ FYNEVO 

XS = XS ♦ STFPMXSOLD ♦ XSNEW) 

YS a YS ♦ 5TEPMYSOLD ♦ YSNEW) 

FXOLO = FXNEW 

FYOLD = FYNEW 

XSOLD a XSNEW 

YSOLO a YSNEW 

RETURN 

ENTRY ISTEP 

XW - 0.0 

YW = 0.0 

XS a 0.0 
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Y S = 0.0 

FXOLO = COSULP * BETA) 
FYOLD = SINULP ♦ BETA) 
XSOLD = COSULP) 

Y SOLO * SIN(ALP) 

RETURN 

ENO 


XSTEP.25 

XSTEP.26 

XSTEP.27 

XSTEP.28 

X5TEP.29 

XS7EP.30 

XSTEP.31 


OVERLAY (FHIb*3»0) 

THREE-DIMENSIONAL INFINITE SWEPT WING BOUNDARY LAYER PROGRAM 
FINITE DIFFERENCE METHOD USING AN EDDY VISCOSITY METHOD TO 

fo°HH E o N r^ 

1 XX(25)*YPL(I00) 9 YO < 1 00 > »CF (200) » YQD { 1 00 ) *(J I 100*3) fUT (100) » V ( 1 0 0 ) i 

2 GAM 1(100 )tGAMF (100) * H ( 2 0 0 ) * US ( 1 0 0 ) * YY (100) *UR ( l 00 ) * UUR ( 1 00 > ♦ 

3 UP(100> , W ( 1 00 * 3 ) *8(400) *RW (400) » YYDEL ( 1 00 ) *GNUT <100*3>*DU(200>9 

4 UTABLE U00) ,OUDY (1 00 ♦ 3 > * PS ( 1 00 , 3 > * SP ( 1 0 0 » 3 ) * THETA ( 20 0 > * 

5 0X0(20*30) *PPC (20 » 30) *UUC ( 20 * 30 ) *UEDGE ( 1 00 > * WP (1 0 0 ) ♦ XPG U 00 ) * 

6 UPG 1 100) * WC ( 1 00 > *0ETA< 100) »RTA0(5O> *G (99 ) *GW (99) *A3(100)*A31 (100) 

7. A4 < 100) *XTEmP (50 > *STENP (50 ) .DUMMY (352) ^ 

? COMMON /SEG/ NCMPT,NFLAP.NFP.NC(4).THETE(12).NPU(4)tNPL(A).ISTG(4) 
l,UCU(4)*UCL<4)*WCU(4)*WCL(4),XTE(4> * Z T E ( 4 ) , DEL* ( 3 ) * NG « 3 > * NPG ( 4 ) 
COMMON/GEO/ CFI*HI*RTN*UN*UTAUtRO*OELSf THETAItZfCf KF*ITER*KL* 

1 KYG.KX * JMX 

COHHON/GRID/YCP(20) .CP (20* 30) ?YGAP 
CQMMON/PARAM/ MACH. alpha, ref a .mat in*refc*uinf 
COMMON/DENSE/SUD (200 ) ,(JSO(20 0) 

COMMON/FSTART/ CFIN#HIN*THTIN*UTE 
COMMON /TITLE/ T ITLE (8) 

COMMON /X'IN/ X IN ( 100 ) » Z IN ( 1 00) *CP IN ( 1 00 ) » SU ( 1 00 ) 

COMMON /RNfi/ RNR 
COMMON /NPT/ NPT 
COMMON /SANGLE/ SANGLE 
COMMON/NX T/NXT 
COMMON/ XSTAPT / XSTART 
COMMON/ITR/ITR* ITRMAX 

commqn/uin/uinuoo) 

COHKON/NGRID/NGRIO 
COMMON/XTRIP/ KCCDEfTRjP 
COMMON /XF NO / XFIND<20) 9 NXFINO 
COMMON/GAP/ ZGAP ( 2 ) 9 SXU ( 2 ) 
common/klam/klam 

COMMON/BEGIN/ HX.THETAX9DELTX9DUX9CFX9DSTARX.UGAP 

COMMON/SLOT/HSSU00>*TSS(100)9DSSUO0),CSS(lO0) .USS(100) 90TSS(100) 
COMMON/CLlRVES/ R (3092) 

COMMON/ NS T /NS T *MC *NRU 
DATA FR I5/4HFR 1 5/ 


INSPAN. 3 
INSPAN. 4 
1NSP AN , 5 ' 
INSPAN. 6 
INSPAN. 7 
INSPAN.8 
INSPAN. 9 
INSPAN. 10 
1NSPAN.11 
INSPAN. 12 
INSPAN. 13 
INSPAN. 14 
INSPAN. 15 
INSPAN. 16 
INSPAN. 17 
INSPAN, 18 
INSPAN. 19 
INSPAN. 20 
INSPAN. 21 
INSPAN. 22 
INSPAN. 23 
INSPAN. 24 
INSPAN. 25 
INSPAN. 26 
INSPAN. 27 
INSPAN. 28 
INSPAN. 29 
INSPAN. 30 
INSPAN. 31 
INSPAN. 32 
INSPAN. 33 
INSPAN. 34 
INSPAN. 35 
INSPAN. 36 
INSPAN. 37 
INSPAN. 38 
INSPAN. 39- 
INSPAN. 40 
INSPAN. 41 
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C INPUT INITIAL DATA 
N r - NFL AP-NFP* 1 

MC - ncmpt-nflap«nf 

NST a NPT - NPU(NC> ♦ NPGtMC) 

NRU = NPU (MC > 

NGRIO = NG(NF) 

SUU) = 0. 

DO 10 I =2 *NPT 

DDX = XIN<I> - X1NU-1) 

ODZ = ZINU) - Z1N(I-1> 

OOS = SORT (DDX°°2 ♦ DDZ«*2> 

sum = su<i-n ♦ oos 

: 10 CONTINUE 

IFUTR.GT.l) GO TO 16 
IFINF.GT.l) GO TO 16 
IF (NXFINO.EQ.O) GO TO 16 
00 17 I =1 §NPT 

IF(X]NU*1>«GE«XIN(I>) go TO 18 
17 CONTINUE 
16 CONTINUE 
NXM = I 

NPTM = NPT-NXM*1 1 

DO 19 I = 1»NPTM 
IM = 1 *NXM- 1 
XTEMPU) = XINCIN) 

STEMPU) = SU { 1 M ) 

19 CONTINUE 

DO 15 1 = 1 »NXF INO 

XFINDU) = TRLU1 (XFINO(I) *XTEHP*STEMP*1 ,NPTM) 
XFINOU) = XFINDU)*REFC . 

15 CONTINUE 

WRITE <6f 600) (XFINOU) *1*1 *NXFIN0> 

16 CONTINUE 

XST ART = (SU(NST) ♦ SXU <NF > > *REFC 
YGAP = ZGAP(NF) 

TRIP = TRIP«REFC 
KLAM = 1 

IF (XSTART.GT.TRIP) KLAM a 2 
SU0(1) = 0. 

DELX = SU(NPT)/199* 

DO 20 I = 2*200 

SUO<I> « SUO(I-l) ♦ DELX 

20 CONTINUE 

SS = XSTART/REFC 
OELTX = 0. 

HX = TBLU1 <SS*SUD*HSS».1 »NXT) 

THETAX = T0LU1 < S$ ♦ SUO * T SS * 1 »NXT) 

DUX = TBLlIl <SS,SUD*DSS*1*NXT) 

CFX = TBLUl (SS ,SUD*CSS*I »NXT> 

UGAP = TBLU1 {SSfSUDfUSS*l ,NXT) 

IF (KLAM.EQ.2l OELTX « T6LU1 < S5 . 5UO»DTSS » 1 *NXT ) 
OSTARX = HX*THETAX 
WR I TE (6 *60 1 ) 

WRITE(6t600) XSTART»TR!P 

600 FORMAT <1H0*20X*F10.5*20X.FI0. 5) 

601 FORMAT < 1 HO * 25X * «S-START » 20X ®FLAP-TRANSITlON») 
CALL OVERLAY <FR I 5 *3 * 1 > 

C CALCULATE BOUNDARY LAYER DEVELOPMENT 
CALL OVERLAY (FRI5*3»2> 

return 

END 


INSPAN. A2 
INSPAN .<*3 
INSPAN. AA 
INSPAN. A5 
INSPAN. A6 
INSPAN. A7 
INSPAN. A8 
INSPAN. A9 
INSPAN. 50 
INSPAN. 51 
INSPAN, 52 
INSPAN .53 
1NSPAN.5A 
INSPAN. 55 
INSPAN. 56 
INSPAN, 57 
INSPAN, 50 
INSPAN. 59 
INSPAN, 60 
INSPAN, 61 
INSPAN. 62 
INSPAN. '63 
INSPAN. 6A 
INSPAN. 65 
INSPAN. 66 
INSPAN. 67 
INSPAN. 68 
INSPAN. 69 ‘ 
INSPAN. 70 
INSPAN. 71 
INSPAN. 72 
INSPAN. 73 
INSPAN. 7A 
INSPAN. 75 
INSPAN. 76 
INSPAN. 77 
INSPAN, 78 
INSPAN. 79 
INSPAN, 80 
INSPAN. 81 
INSPAN. 82 
INSPAN. 83 
INSPAN. 8A 
INSPAN. 85 
INSPAN. 86 
INSPAN. 87 ' 
INSPAN. 88 
INSPAN.89 
INSPAN. 90 
INSPAN. 91 
INSPAN. 92 
INSPAN. 93 
INSPAN. 9A 
INSPAN. 95 
INSPAN. 96 
INSPAN. 97 
INSPAN. 98. 
INSPAN. 99 
INSPAN. 100 
INSPAN. 101 
INSPAN. 102 
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OVERLAY (FR15*3*1 > 

program bounory bounory 

COHMON/ SCRAT / ALF S ( 20 0 ) * CBE T A < ? 0 0 > * Y (1 0 0 > ♦ JY ( 25 ) . JY T ( 25 ) * 0 Y 1 25 ) . BOUNORY 


j v n n i f i » v v » ' v ( \ k- j ’ v i ■ tv* ^ 

XX 125) f YPL < 1 00) . YD MOO) *CF <200) .YOOUOO) *U( 100*3) *UT (100) *VI 100) ♦ BOUNORY 
GAM I U00) *G.4HF {]00) *H(200) .US ( 1 0 0 > *YY <1 00 ) *UR ( 1 00 > .UUR( 100) , BOUNORY 

UP<100>*W<100.3>,e<400)*8w<400> .YYDEU 100) ♦ GNU r (100.3) « OU ( 200 ) ♦ BOUNORY 
UT ABLE (100) .OUOY ( 100.3) »PS <100.3 ) *SP( 100*3) .THETA (200) ♦ BOUNORY 

0X0(20 .30) .RPC (20.30) *UUC(20*30) .UEOOE (100) *WP ( 1 00) * XPG ( 100) « BOUNORY 
UP-3 1100) *»C( 100) .BETA < 100) .PTA9 (50> *G(99> *GV<99) ,A3( 100) *A31 MOO) BOUNORY 
7. A4 ( 100) .DUMMY (ASP) BOUNORY 

COMMON/ GEO / CF1 .HI .RTN. UN, UTAU. RD.OELS ♦ THE T A I ♦ Z »C . KF* 1TER.KL* BOUNORY 

1 KYG.XX.JMX BOUNORY 

COMMON /XIN/ X1N( 1001 *ZIN( 100> .CPIN( 100) .SUUOO) BOUNORY 

COMMON /NPT/ NPT ’ BOUNORY 

COMMON/IPRTNT/IPRINT.KSKIP BOUNORY 

COMMON /SANGlE/ SANGLE BOUNORY 

COMMON /RN8/ RNB BOUNORY 

XX = o BOUNORY 

C INPUT DATA. BOUNORY 

CALL OATIN(P) BOUNORY 

C PRINT-OUT INPUT DATA. BOUNORY 

IF { IPR IN7 .GT . 0 > CALL DATOUTI1) BOUNORY 

100 CALL OATIN(l) BOUNORY 


.3 

• A 
.5 
.6 
.7 
.8 
.9 
.10 
.11 
.IP 
.13 
.14 
.15 
. 16 
.17 
.18 
.19 
.PO 
.PI 
.P? 

• P3 
.PA 


K X = K X ♦ 1 

CALCLATE INITIAL PROFILE. 

CALL VELIN 

C PRINTOUT STARTING PROFILE. 

IF ( IPR1NT.OT.O) CALL OATOUT(P) 

CALL PCALC 

CALL WRITE 

RETURN 

END 


BOUNORY ,P5 
BOUNORY. P6 
BOUNORY ,P7 
BCUNDRY .28 
BOUNORY .29 
BCUNDRY * 30 
BOUNORY .31 
BOUNORY .32 
BOUNORY. 33 


SUBROUTINE DflTIN(L) DATIN.2 

0ATIN.3 

COMMON/ SCRAT / ALFS ( POO ) ♦ CBE T A < 20 0 ) ♦ Y (1 00 ) . JY (25 ) » JYT ( 25 > *OY ( 25) ,0A T IN. A 
X X ( 25 ) .YPL (100), YD (100) *CF (200) » YOO ( 1 00 ) *U U 00 ♦ 3 > *UTUOO)«VUOO)*DATIN.5 
GAM I (!00),GAMFUOO),H(200) *US(100) ,YY(100> »UR (100) .UUR U00)» 0ATIN.6 

UP ( 100) *W< 100. 3) ,0(400) .BW(AOO) ,YYDEL( 100) *GNUT( 100,3) .DU (200) * OAT IN. 7 
UTABLE < 100 ) , DUOY (100, 3), PS (100*3), SP (100*3) * THETA (200) * OAT IN. 9 

DXD(20*30)*PPC (20*30) »UUC<20*30) *UEDGE(100> *WP (1 00 ) * XPG 1 1 00 ) * OATIN.9 

UPG ( 100) *WC { 1 00 ) .BETA ( 100) *RTA0(5O> *G(99) « GW ( 99) *A3< 100) *A31 < 100)0AT IN. 10 


iRTH,UN*UTAU*RD*DELS9THETAI *Z*C*KF , ITER*KL* 


7.AMU00) *OUMmY<452) 

COMMON/ GEO / CFI »HI 
1 KYG,KX*JMX 
COMMON/NPT/ NPT 
COMMON/UIN/UlNdOO) 

COMMON /XIN/ XIN(IOO) .ZIN(IOO) .CPIN(IOO) *SU(100> 

COMMON/PARAM/ MACH.AIPHA.REFA*MA7 IN»REFC*UINF 
COHMON/FSTART/ CF IN.HINfTHT IN*UTE 
COMMON /RNB/ RN8 

DIMENSION 1Y(11) *IYT(11) *EY( 11) *EOD(S0) *EAMl(50) 

OATA (IY(I>* I*= 1 » 1 1 ) /?» 6 ♦ 19 » 1 3 ♦ 1 6 * 19 , 22 , 25 , 29 » 32 , 4 1 / 

DATA ( I YT ( 1 ) ♦ I c l*ll)/5 *9*12*15*18*21, 24.28*31,40*99/ 

DATA (E Y ( I ) * lal.ll)/. 0003125*. 000625. .00125,. 0025*. 005*. 01*. 02» 

1 .04*. 08*. 16*. 32/ 

OATA (EDD<I>* I»l*50)/.0*.01*.02*«03*.04 f .05*.06..07*.075*«08*.0850ATlN.25 
1 * .09* .095* • 1 * . 1 05. • 1 1 ♦ * 1 1 5 * . 1 2 * . 125 * * 1 3* OATIN.26 


OAT IN. 1 1 
OAT IN. 12 
DAT IN. 13 
0ATIN.14 
OAT IN. 1 5 
OAT IN. 1 6 
OAT IN. 17 
OAT IN. I 8 
OAT IN* 19 
DATIN.20 
DAT IN.2 1 
DATIN.22 
DAT IN. 23 
OAT IN . 24 


.135, .14*. 145*. 15* .1S5, .16,. 165 *.1 7* .175*. 180AT IN, 27 
*.185*.19*.195,«2.»25*.3*.35,.4*.45*.5».55* 0ATIN.28 
.6,. 65*. 7.. 75 *.8 *.85*. 9,. 95 *1.0/ OAT IN. 29 
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DATA 

1 

2 

3 


IE AMI (I) *1=1 *501/9*1 . *.998*. 

.986* .9835. 
.9615*. 958* 
.928*. 923*. 


4 .341 • . 263 * • 

C STANOARO ARRAY 
KYG = 50 
DO 1 1=1*11 
JY ( I } = I Y ( I ) 

JYT ( I ) = I Y T ( I ) 

OY(I) = EY ( I ) 

1 CONTINUE 

DO 2 1=1*50 
YOO ( I ) = EOD(I) 

GAMI (I ) = EAM 1 < I > 

2 CONTINUE 

GO TO (50*99)* t 
50 CONTINUE 

UN = RN8*UTE/REFC 
CFI = CF IN 
HI = HIN 

THE T A 1 = THTIN/REFC 
DO 10 1=1 *NPT 

UINU) = SQRT { 1 •- CPIN(ll) 

10 CONTINUE 

RTH = THTIN*RNB«UTE 
RETURN 
99 CONTINUE 
KL = 11 

CALCULATE STANDARD Y ARRAY. 


9965, .995 *.9935 *.992 *.99* .988* 
.981*. 978 *.975 *.972*. 9695*. 965. 
.954, .95, .946* .942 *.9375 *.93 3* 
869* .806 * .736* .659* .58* .5* .42* 
19*. 127*. 077*. 0 44 * .02* .006* .0/ 



Y ( l > =0. 

DO 200 K=1,KL 
KS = JY ( K 1 ' 

kf=jytik> 

00 200 KQ=KS*KF 
200 Y (KQ) = Y(KQ-l) *CY(K) 
RETURN 
END 


OAT IN. 30 
0ATIN.3I 
OAT IN. 32 
OATIN.33 
OAT IN. 34 
OAT IN . 35 
DAT IN. 36 
OAT IN. 37 
DATIN.30 
0ATIN.39 
DAT IN. 40 
DATIN.41 
DAT IN. 42 
DAT IN .4 3 
OAT IN. 44 
0ATIN.45 
OAT IN. 46 
OAT IN, 47 
DATIN.48 
DATIN.49 
DATIN.50 
0ATIN.51 
0ATIN.S2 
0ATIN.53 
DATIN.54 
OAT IN. 55 
OAT IN .56 
DATIN.57 
OAT IN. 58 
0ATIN.59 
OAT IN. 60 
DAT IN. 61 
DATIN.62 
0ATIN.63 
OAT IN. 64 
DATIN.65 
DAT IN. 66 
DAT IN .67 


SUBROUTINE DATOUT (L) 

COMMON/ SCSAT / ALPS ( 20 0 ) *CBE T A ( 

1 XX ( 25 ) ,YPL (100) * YO ( 1 00 ) *CF (200) 

2 GAMI (100> *OAMF U00 > *H (200) *US(1 
' 3 UP (100) *W ( 100*3) *B(400) * Bel (400) 

4 UTABLE UOQ) .DUOY (100*3), PS (100* 

5 DXD(20*30) tPPC(20»30) *UUC(20,30 

6 UPG ( 1 00) *WC ( 100) *BETA ( 100) *RTAB 

7 * A4 UOO) , DUMMY ( 452 > 

COMMON/ GEO / CFI *H I 

1 KYG,KX*JMX 
COHMON/PHIL/IPHIL 
C0MM0N/ITR/ITR999,ITRM99 
GO TO (100*200) *L 
100 CONTINUE 

IF(ITR999.LT,IPH1L)G0 TO 500 
WRITE (6*1 > 

WRITE (6*3) ( J* JY ( J) * JYT <J) ,DY(J> 

WR ITE (6 *4) ( Y < J ) * J = l*KF) 

500 CONTINUE 

DO 170 1=1 *KYG* 10 
K A= I 

IF (KA*9-KYG> 155*155 *157 
155 KB= l *9 

GO TO 160 
157 KB=KYG 

PRINT TABLE OF GAM VS. YDD. 

160 CONTINUE 


200) *Y(100) *JY(25) * JYT (25) *DY(25) 
♦YDD (100) *U( 100*3) *UT (100) *V( 100) 
00) *YY(100) *UR(100) *UUR(100> * 

* YYOEL (100) *GNUT (100*3) * DU (200), 
3) *SP ( 100*3) *THETA(200) * 

> »U£0GE ( 1 OO > *WP(100) ,XPG(100) * 
(50>*G(99)*GW(99)*A3(100)*A31(100 

RTH*UN*UTAU*RO* DELS* THETA I *Z*C*KF*IT£R*KL* 


* J=1*KD 


DATOUT.2 
OATOUT .3 
♦DATOUT .4 
» DATOUT *5 
DATOUT. 6 
OATOUT. 7 
DATOUT. 8 
OAT OUT *9 
) OATOUT .10 
DATOUT. 11 
DATOUT. 12 
DATOUT. 13 
DATOUT. 14 
OATOUT. 15 
DATOUT. 16 
DATOUT. 17 
DATOUT. 18 
OATOUT .19 
DATOUT. 20 
OATOUT. 21 
OATOUT. 22 
DATOUT, 23 
DATOUT, 24 
OATOUT. 25 
OATOUT. 26 
DATOUT. 27 
OATOUT. 28 
DATOUT. 29 
DATOUT. 30 
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I F(KB-KYG) 170*180 *180 
170 CONTINUE 
180 CONTINUE 

RETURN r 

200 CONTINUE 

IPUTR999.LT.IPH1UG0 TO 510 ‘ 

WRITE (6*7) ITER 
WRITE (6* 1 1 1 
510 CONTINUE 

IF(KF-KYG > 301*382*383 

381 LZ2-1 
LZ 1 -KF 
LZ3=KYG 
GO TO 384 

382 LZ2=3 

LZ 1 = KF *2 
LZ3-KF 
GO TO 384 

383 LZ2=2 
LZ1=KYG 
LZ 3-KF 

384 CONTINUE 
LZ3 = JMX*2 

DO 395 J=1*LZ3 

IF ( J-LZ 1 > 391*391 *394 

391 CONTINUE 

i« I U < 1 » T t “ aJ ? € 3?* Y<J>*YOU>*GAMF<J»*U<J*KX> 

GO TO 395 

394 CONTINUE 

GO TO (390*392*3841* LZ2 
390 CONTINUE 

IF ( ITR999.LT «I PH ID GO TO 395 
WRlTE(6*4l> YnD(J>* GAMKJ) 

GO TO 395 

392 CONTINUE 
K X = 3 

IFUTR999.LT.IPHIDGO TO 395 
• WRITE (6*42) Y(J) *YD(J> *GAMF(J) *U(J*KX) 

395 CONTINUE 

1 FORM AT UHl.2(]X.« INSPAN OUTPUT FOB FLAP UPPER SURF ACE*// 1H0. SOX, 

j’FORiMUHj.AxaHjlTX.PPJT.aX.OHJYO.OX.^OyllH | °* 6 ’ ' 

4 FORMATUHO* 30X* 17HSTAN0AR0 Y ARRAY./ <1H * 2 ‘ fd n iph 

7 FORMA I I 1H , I3X.6P INPUTS, 15X, 2AMST ART ING U PROFILE AFTER. 13. 12H 

l 1 'fORHAT^IH ,6X . AHY/OS.flX . AhGAM I.12X.IHY.1 IX. AHY/DS. 7X, AHGAMF • 7X, 
l/UFS) 

41 FORMAT ( IH 

42 FORMAT (1N 
END 


*2F12.4 *4X*4F12*4) 
*28X *4F 1 2*4) 


DAT0UT.31 
OATOUT .32 
OATOUT.33 
OATOUT. 34 
OATOUT. 3S 
OATOUT. 36 
DATOUT. 37 
OATOUT. 38 
OATOUT. 39 
OATOUT. 40 
OATOUT. 41 
OATOUT. 42 
OATOUT. 43 
OATOUT .44 
OATOUT. 45 
OATOUT. 46 
OATOUT. 47 
OATOUT. 40 
DATOUT, 4$ 
OATOUT. 50 
OATOUT. 51 
OATOUT, 52 
OAT OUT 0 53 
OATOUT. 54 
OATOUT. 55 
OATOUT. 56 
DAT0UT.57 
OATOUT. 50 
DAT0UT.59 
OATOUT. 60 
OATOUT. 61 
OATOUT. 62 
OATOUT. 63 
OATOUT. 64 
OATOUT. 65 
DATOUT .66 
OATOUT. 67 
OATOUT. 68 
DATOUT. 69 
DATOUT. 70 
OATOUT. 71 
OATOUT. 72 
DATOUT. 73 
OATOUT. 74 
OATOUT. 7S 
DATOUT .76 
ITEDATOUT .77 
DATOUT. 78 
SHUDAT0UT.79 
OATOUT .80 
DATOUT. 01 
OATOUT. 02 
DATOUT. 83 


SUBROUTINE PCALC 

SURFACE PRESSURE GRAOIEN7S ANO EFFECTIVE SWEEP 
COMMON/ SCRAT / ALPS (200) *CBFT A (200 ) *Y (1 00) 

1 XX (25) *YPL ( 1 00) *YO ( 1 00 > *CF (200) *YDO ( 100) *U 

2 GAM I < 100) fGAMFUOO) *H{200) *US(100) *YY(100) 

3 UP ( 100) *U < 100*3) *0 (400 > *BW (400) *YYOEL ( 100 ) 

4 UT ABLE (100) * DUOY (100*3) * PS (100*3) *SP(10Q*3 

5 0X0(20*30) *DPC (20*30) *UUC(20*30> *UEDGE<100 

6 UPG(IOO) *WC(100).BETA(100) ,RTA8(50) *G(99) * 
7*A4 (100) *OUMMY<452) 

COMMON/UIN/ UINUOO) 

COMMON /XIN/ XIN(lOO)*ZINUOO)*CPINUOO>. 
COMMON /NPT/ NPT 
COMMON /SANGlE/ SANGLE 


PCALC. 2 

ANGLE PCALC. 3 

♦JY(2S) *JYT (25) *DY(25) *PCALC.4 ' 
(100*1) fUT(lOO) *V(100)*PCALC.5 
♦ UR ( 100> *UUR(1 00) * PCALC. 6 

♦GNUT (100*3) ♦ DU (200) * PCALC. 7 
> * THET A ( 200 ) * PCALC, 0 

) *WP( 100) *XPGU00> * PCALC. 9 
GW (99) * A3( 100) *A31 U 00) PCALC. 10 

PCALC. 11 
PCALC. 12 

SU(lOO) PCALC *13 

PCALC. 14 
PCALC. 15 
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COMMON/ XST A»T / XSTART 

S INA? = SIN (SANGLE«0.01 745329252) 

DO 10 I = 1 *NPT 

ALPS { 1 ) = ATaN(STNAZ/UIN(I>) 

'10 CONTINUE 

6000 FORMAT (I5*5X*E12«4) 

CALL DCP[)X<UTN*5U*DU*NPT) ' 

RETURN 

END 


PCALC. 16 
PCALC. 17 
PCALC. 18 
PCALC. 19 
PCALC. 20 
PCALC. 21 
PCALC. 22 
PCALC. 23 
PCALC. 24 


SUBROUTINE SEARCH (J«KR) 

COMMON/ SCRAT / A LFS < 200 ) . CRET A ( 2 00 ) » Y ( 1 00 ) * JY ( 25 ) » JYT ( 25 > * 0 Y ( 25 > 

1 XX <25> tYPL<1.00> .YD (100) *CF<200> .YODUOO) ,U ( 1 00 *3 > *UT ( l 00 > . V ( 1 00) 

2 GAM I (100> .GAMP (100>*H(200) t-U 5(100) ♦YY(lOO) *UR ( 1 00 > *UUR (100) t 

3 UP<100>«W(100*3)*8(400>*BW(400) * YYOEL (100) *GNUT <1O0*3)*OU(2OO)* 

U UT ABLE (100) «OUDY (100.3) ♦ PS (100*3) *SP (100*3) * THETA (200) * 

5 DXD(20*30)*PPC(20*30> *UUC<20*30 ) *UEDGE ( 1 00 ) *WP ( 1 00 ) * XPG (1 00 > * 

6 UPG ( )00>**C(100>*BETA<100)*RTA8(5Q>*G(99>*GU(99>*A3(10Q>*A31<100 

7.A4U00) *DUHMY<452> „ _ _ _ _ __ ... 

COMMON/ GEO / CF 1 *H I ♦ RTN* UN.UT AU *R0 *OELS .THETAI * Z «C »KF » I TER ♦ KL* 

1 KYG.KX * JMX 
90 CONTINUE 

DYl = YD< J)-YOD(KR) 

IF CABS(0Y1 )-l .E-8) 200*200*100 
100 IF(OYl) 300*200*150 
ISO KR=KR*1 

IF(KR-KYG) 90*90*900 
200 G AMF { J> =GAM I (KR ) 

RETURN 

300 DY3“ Y0D(KR)-YD0(KR-1> 

DY2=YD( J)-YD0<KR-1 ) 

OG = GAM I (KR)-GAMI (KR-l ) 

GAMF(J) - GAMI(KR-l) ♦ <DG*DY2>/ (0Y3> 

return 

900 GAMF(J) = GAMI(KR) 

RETURN 

END 


SEARCH. 2 
SEARCH. 3 
♦SEARCH, 4 
*S£ARCH,5 • 
SEARCH. 6 
SEARCH. 7 
SEARCH. B 
SEARCH. 9 
) SEARCH. 10 
SEARCH. 1 1 
SEARCH. 12 
SEARCH. 13 
SEARCH. 14 
SEARCH. 1 5 
SEARCH. 16 
SEARCH. 17 
SEARCH. 18 
SEARCH. 19 
SEARCH. 20 
SEARCH. 21 
SEARCH. 22 
SEARCH. 23 
SEARCH. 24 
SEARCH. 25 
SEARCH. 26 
SEARCH. 27 
SEARCH. 28 
SEARCH. 29 


SUBROUTINE VpLCAL 

COMMON/ SCRAT / ALFSI200) *CBETA (200) *Y<100) »JY(25) * JYT (25) *0Y(25> * 

1 XX<25> * YPL (100) * YO (IOC ) »CF (200) ♦ YOD < 1 00 ) *U( 100*3) *UT ( 100) » V (100) * 

2 GAM I ( 100 ) »GaHF (100) *H(200) *US(100) *YY (100) *UR(100> *UUR ( 100 > * 

3 UP(100)*W(100*3) * R ( 4 0 0 ) ♦ B irf ( 4 0 0 ) * YYOEL (100) *GNUT < 1O0 *3> »0U (200) « " 

4 UT ABLE ( 100) .DUDY ( 1Q0*3> *P5( 1 00.3) *SP( 100*3> .THETA (200) * 

5 DXO(20*30)*P PC (20*30) *UUC<20»30) *U£OGE(100) *VIP(100)*XPG(100>* 

6 UPG (100) * WC ( 1 00 ) *BETA(100) *RTAB(50) *G(99) *6W (99) *A3(100) *A31 (100) 
7*A4(100) *OUMMY(452) 

COMMON/ GEO / CFI *HI *RTH*UN*UTAU*RO*OELS*THETAJ *Z*C*KF* ITER *KL* 

1 KYG*KX*JMX 
L *1 

UTAU = SORT (CFI/2.) 

C ROUTINE TO CALCULATE STARTING PROFILE. 

g = <2,8034 -,8468*ALOG(HI) ♦ .979* ALOG (RTH> ) 

RD = EXP(Q) 

DELS = RD/UN 
DO 200 J=I*KF 
YPL ( J) = UTAU*Y(J)«UN 
200 CONTINUE 
C BEGIN ITERATION LOOP. 

ITER = 0 
210 CONTINUE 
300 ITER = ITER* 1 
DELS = RD/UN 
KP = 2 

00 400 J=1*KF 

CALCULATE THE STARTING PROFILE 
IF < YPL (J) -4. >330*340*310 
310 IF (YPL (J) -30. > 340*340*350 


VELCAL. 2 
VELCAL.3 
VELCAL.4 
VELCAL.5 
VELCAL. 6 
VELCAL.7 
VELCAL *8 
VELCAL.9 
VELCAL. 10 
VELCAL. 11 
VELCAL. 12 
VELCAL. 13 
VELCAL. 14 
VELCAL. 15 
VELCAL. 16 
VELCAL. 17 
VELCAL. 18 
VELCAL. 19 
VELCAL. 20 
VELCAL. 21 
VELCAL. 22 
VELCAL. 23 
VELCAL, 24' 
VELCAL. 25 
VELCAL. 26 
VELCAL. 27 
VELCAL. 28 
VELCAL. 29 
VELCAL. 30 
VELCAL. 31 
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C LOWER REGION. 

330 UTIJ) = UTAU«YPL(J> 

GO TO 360 
C MIODLE REGION. 

3A0 D = ALOG(YPL(J)) 

UT(J) = UTAU* (2. 3977-2. 7043*0 
GO TO 360 
C OUTER REGION. 

350 UT(J) = UTAUM5.A ♦ 2.389®ALOG(YPL 
360 CONTINUE 

YOU) = Y ( J ) /DELS 
IF(YD(J>-1.) 370*300*380 
CALL ROUTINE FOR GAMMA SEARCH. 

370 CALL SEARCH (J*KR) 

GO TO 390 
380 GAME (J) = 0. 

IF(L.EQ.2> GO TO 10 

JMX - J 

L=2 

10 CONTINUE 

390 UP(J)=UT|J>*GAMFU> ♦ 1*-GAMF<J> 
A00 CONTINUE 

CALCULATE THE BNORy. LAYER THICKNESS ANO 
OELS = 0. 

THETAI = 0. 

DO 500 J=2»KF 
ODY a 

OUO = L)P(J) * UP ( J- 1 > 

DUS = UP(J)**2 ♦ UP<J-1>**2 
DELS = DELS * (1 ,5*0U0> «DDY 

THE T A 1= THETAl*. 5* (OUO-DUS ) *OOY 
500 CONTINUE 

Z = THETAI«UN 
c =(RTH-Z)/RTH 
CV= ABS(C> 

IF (CV **.001)700*700, 600 
600 RD = <1.*C)«RD 

IF ( ITER-25) 210*700*700 
700 HI= OELS/THETAI 
RETURN 
END 


VELCAL .32 
VELCAL .33 
VELCAL. 3A 
VELCAL. 35 
VELCAL. 36 

3.5101*D*«2 - ,5289®D*»3) VELCAL. 37 

VELCAL. 30 
VELCAL. 39 

- 5 . 03 )) VELCAL. AO 

VELCAL. A1 
VELCAL. A2 
VELCAL. A3 
VELCAL. AA 
VELCAL. A5 
VELCAL. A6 
VELCAL. A7 
VELCAL. A0 
VELCAL. A9 
VELCAL, 50 
VELCAL. 51 
VELCAL. 52 
VELCAL. 53 

momentum thickness. velcal. sa 

VELCAL. 55 
VELCAL, 56 
VELCAL. 57 
VELCAL. 58 
VELCAL. 59 
VELCAL. 60 
VELCAL. 61 
VELCAL, 62 
VELCAL. 63 
VELCAL. 6A 
VELCAL. 65 
VELCAL. 66 
VELCAL. 67 
VELCAL. 68 
VELCAL .69 
VELCAL. 70 
VELCAL. 71 
VELCAL. 72 


COMMON/ 1 SCR AT L / N A L FS< 200 ) *CBET A (200) * Y (1 00 > ♦ JY ( 25) * ( 25 > *DY (25 J 


XX(25)*YPLnOO)*YD(100)*CF(200)*YDD(100)*U<lOO*3)*UT(10())*V(100) 

GAM I (100) .GAMFUOO) ,H(200>*US(100) , Y Y <1 0 0 > *UR ( 1 00 > *UUR U 00 ) * 

UP (100) *W <100,3> *D(A00> .BW(AOO) * YYDEL < 1 00 > t GNUT < 1 0 0 * 3 ) , DU ( 200 > * 
UTABLF (1 0 0 ) .DUDY ( 100*3) *PS (1 00*3) *SP (100*3 > *THETA( 200) * 

DXD (20,30) *PPC (20*30) *UUC (20*30) *UEDGE (100) *WP( 100) ,XPG( 1 00) * 
UPG(100)*WC(100)»BETA (100) ,RTAB(50) *G(99) *GW (99) • A3 ( 1 00 ) *A31 (100 
7 , AA ( 1 00 ) , DUMMY (A52 ) 

COHHON/GPID/YCP (20 ) * CP (20*30) *YGAP tvcd i/i 

COMMON/ GEO / CF1 ,HI*RTN,bN*UTAU.RO,OELS*THETAI,Z*C*KF*I fER*KL« 

1 K YG * K X * JMX 

COMMON/PAR AM/ MACH* AL PH A*REFA*MAT IN»REFC*UIN 
COMMON/FSTART/CFIN,HtN*THTIN*UTE 
COHMON/SEG/ NCMPT *NFL AP *'NFP *NC < 66 > 

COHMON/S ANGLE/ S ANGLE 

common/phil/tphil 

COMMON/ I TR/ITR999*ITRM99 

common/klam/klam 

COMMON/RNB/RNB 

COMMON/BEGIN/ HX,THETAX,DEL7X *DUX *CFX»DSTARX,UGAP 
DIMENSION XC(A*A) ,B(A) ,CC(A) , 

KSWAT = l 

SINAZ - SIN(SANGLE«0.017A5329252) 

WE = SINAZ 
YY ( 1 > =0 • 


VEL IN. 2 
♦VEL IN. 3 
•VEL IN. A 
VEL IN. 5 
VEL IN .6 
VEL IN. 7 
VEL IN .0 
) VEL IN. 9 
VEL IN. I 0 
VELIN.il 
VEL IN. 12 
VEL IN. 13 
VEL IN. 1A 
VEL IN. 15 
VEL IN. 16 
VEL IN. 1 7 
VEL IN, 1 0 
VELIN.19 
VEL IN. 20 
VELIN.21 
VEL IN . 22 
VEL IN. 23 
VELIN.2A 
VEL IN. 25 
VEL IN. 26 
VELIN.27 
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o n 


■ USU) - o. REPRODUCIBILITY OF THE 

i-3 ORIGINAL PAGE IS POOR 

UUR(l) - 0. 
ur<ii = o. 

UU*I> * 0. 

UEOGEU) =0, » • 

GAP = 2. 

KGAP = INKGAP) 

GO TO ( 1 0»20*20) »KGAP; 

10 CONTINUE 
KKK = 2 
YGAP = 0. 

GO TO AO 
20 CONTINUE 

YGAP = YGAP*PEEC 

UPOT = I. 




OGAP = ,333*YGAP 
OTGAP = • 667*YGAP 
GO T0U.2) KtAM 
\ CONTINUE 
I TE = 0 

DZ = 6.5®0STARX 
A = -RNB*DUX/I2. 

7 1TE = HE * 1 

OELTX = 10,*DSTARX/ <A*0Z**2 ♦ 3.) 
ERR = (DELTX-OZJ/OELTX 
ERRA * ABS(ERR) 


1F{ERRA.LE. 0,001) GO TO 8 
ONE* = AfiS (OELTX-DZ ) 

IF ( ITE.LT.2) GO TO 11 
IF(ITE.GE.3) GO TO 1* 

IF (ONEW .LE.OOLD) KCON = 1 
IF IONEW .GT.DOLO) KCON = 2 
1A GO T0U1*12) ,KCON 

11 CONTINUE 

OZ - < 1 . *ERR) ®OZ 
GO TO 13 

12 CONTINUE 

OZ = (l.-ERR)*OZ 

13 CONTINUE 
DOLO = DNE* 

IFUTE.LT.25) GO TO 7 

8 CONTINUE 

OLAMOA = RNB®DUX*DELTX««2 
2 CONTINUE 

OLGAP = OELTX*REFC 
WRITE (6*605) OELTX 

' 605 FORMAT (lHO*Z 5 X**eOUNDABY LAYER 


thickness on flap at s-start 


9 


1F10.5) 

GO TO (5 *6 ) KLAM 
CONT INUE 

UN - RN8*UGAP/REFC 
CFI = CFX 
HI = HX 

qjN * THETAX»PN8«UGAP 

CALL VELCAL 

CONTINUE 

00 30 J = 2*100 

1F(Y(J) .GT.YGAP) GO TO 35 

IF(Y{J) .GT.DTGAP) GO TO 32 

IF(YU) .GT.DLGAP) GO TO 31. 

ETA = Y(J)/OLGAP 
GO TO<3*4> KLAM 
3 CONTINUE 

CALCULATE LAMINAR PROFILE 

UUR<J) = 1 • - ( 1 •♦ETA ) * (1 «-ETA ) 3 


OLAMOA®ETA* 11 ,-ETA>*«3/6. 


VEL IN. 28 
VELIN.29 
VELIN.30 
VELIN.31 
VELIN.32 
VELIN.33 
VELIN.3A 
VEL IN, 35 
VELIN.36 
VEL IN ,37 
VELIN.38 
VEL IN, 39 
VELIN.AO 
VEL IN, A 1 
VEL IN. 42 
VEL IN, A3 
VEL IN# AA 
VELIN.A5 
VELIN.A6 
VELIN.A7 
VEL IN, AS 
VELIN.A9 
VEL IN ,50 
VELIN.51 
VEL IN ,52 
VELIN.53 
VELIN.54 
VEL IN , 55 
VELIN.S6 
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VEL IN, 63 
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YY ( J ) = Y<J) 

GO TO 30 i 

4 CONTINUE 

UUR 1 J > » UP(J) 

IF (UUR ( J) »GT.l • > UUR < J> * 1* 

YY ( J ) = Y < J ) 

GO TO 30 
31 CONTINUE 

UUR ( J ) a UPOT 
YY(J) = YU) 

60 TO 30 
32 CONTINUE 

ETA s (YGAP-YU) J/OGAP 
UUR (J) = ETAa*. 14286 
YY ( J ) = Y<J) 

30 CONTINUE 
35 CONTINUE 
KKK = J 

KGAP s KGAP - 1 
40 CONTINUE 

NF = NFL AP-NFP* 1 
IF (NF «EO , 1 ) GO TC 41 
REWIND 12 

RE AO ( 1 2 > JHX* (UP < J) *Y (J) t J=1 * JMX) 
REWIND 12 

IFUTR999.LT. IPHILJGO TO 42 
WRITE (6*6000) (UP ( J ) * J» 1 * JMX ) 

GO TO 42 
41 CONTINUE 

UN = RNO*UTE/REFC 
CFI = CF IN 
HI = HIN 

RTN = THT IN*RN8 w UTE 
CALL VELCAL 
42 CONTINUE 

YH AX = YOAP ♦ Y ( JMX ♦ l ) 

DO 900 J = KKKtlOO 
Y Y ( J ) = Y ( J-KKK ♦ 2 ) ♦ YGAP 
UUR < J > = UP ( J-KKK *2 ) 

IF ( YY (J) .GE .YMAX) GO TO 135 
KF = J 

900 CONTINUE 

135 CONTINUE 

N = JYT(KL) 

136 CONTINUE 

YG = Y(N>-YY(KF> 

IF(YO) 139*119*137 

137 N*N-1 

GO TO 136 
139 CONTINUE 

JMX = N* 1 
C FIX OUTER VALUES. 

111 = N * 1 

1 12 = JYT (KLl 

00 141 JJ=I 1 1 * 1 12 
UR(JJ) = UUR(KF) 

K YH = JJ 
141 CONTINUE 

YY ( KF ♦ 1 ) = Y (N«l) 

YY(KF*2> = Y(N*2> 

O YY ( KF ♦ 3 > * Y(N*3) 

K5T = 1 
JP 3 KST-1 
KE = JYT(KL) 

KKK = N 
JP = JP*1 
00 300 J=2*KKK 
200 CONTINUE 

YS = YY(JP) 


VELIN.97 
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VEL IN . 1 02 
VEL IN , 1 03 
VEL IN, 1 04 
VEL IN. 1 05 
VEL IN » 106 
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909*201 *909 


SEARCH THE ARRAY* 

YQ2 = YS-YU) 

IF <ABS(YG2)-1 .E-9) 
909 IF < YQ2 ) 209*201*204 


209 CONTINUE 
JP = JP*I 
00 TO 200 

201 CONTINUE 
C EXACT SPOT. 

UR < J) - UURIJP) 

GO TO 220 
204 CONTINUE 

00 210 Ns 1*4 
KK? = N* JP-3 
IFIKK2.LT.2) KK2=2 
BIN) = UUR <KK2) 

XC(N*1) = 1.0 
XC(N*2) = YY (KK2 ) 

XC ( N » 3 ) = XC<N,2)**2 
XC < N * 4 } = XC(N*2)«»3 

210 CONTINUE 

CALL SMLN(XC*CC*B*4) 

JJ=J 

UR^j^r CC <1 ) *CC<2) °Y < JJ) *CC C 3 > * <Y ( JJ) **2> *CC (4 ) 0 <Y < JJ) °*3 
220 CONTINUE 


KY4 = J-l 
300 CONTINUE 

KY4 = JYT(KL) -1 
US(l) =0, 

PERFORM THE SMOOTHING. 

US 1 2 ) = UR(2) 

U(2*n « us (2) 

IFIKSWAT.LE.I > GO TO 500 
00 320 LT- 1 *2 
00 330 J=3 *Ky4 
IF (LT.E0.2) GO TO 315 

USIJ) = (UR(J-l) ♦ UR(J> ♦ UR<J*l>)/3* 
GO TO 330 
315 CONTINUE 

uu.n = <us<j-n ♦ us<J> 

330 CONTINUE 

= DSIKY4) 


♦ US <J*1) ) /3* 


320 


500 


510 

600 


400 


US ( KY4 ♦ 1 ) 

CONTINUE 
GO TO 600 
CONT INUE 
DO 510 J =3*KY4 
U< J* I) = UR (J) 

CONTINUE 

CONTINUE 

U(KY4*1*I> = U (KY4 * I ) 

DO 400 Jsl*20 
YCP(J) = R£FC°YCP ( J) 

UUCU) = SORT 1 1 **CP 1 J* l ) > 

CONTINUE 

UY1 s 78LU1 (DLGAP *YCP*UUC* 1 *20) 

UY1 = SQRT<UYl«*2 ♦ WE flft 2) 

UY2 = TBLU1 <DYGAP*YCP»UUC*1*20) 

UY2 = SORT <UY2*®2 ♦ WE**2> 

00 410 J=2* JMX m 

UtoufcTJ) = IPLU1 <Y(J) *YCP*UUC* 1*20) 


i 


410 CONTINUE 

DO 450 Js 2 ,JmX 

IF IY( J) .GT.YAAP) GO TO 440 

IF (Y(J) .GT.OTGAP) GO TO 430 

IF (Y<J) ,GT. DLGAP) GO TO 420 

URE = SORT <Uf OGE ( JMX ) **2 * WE«» 2 ) 

UUU) = U<J.I)»UYl/URE 

GO TO 450 


VELIN.166 
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REPRODUC'"” 

ORIGINAL 


tty OF 

..POOR 


fjtdP 


420 CONTINUE 

URATIO = SORT (UECGEI J>«°2 ♦ W£**2>/URE 
U(J*I) = U ( J ♦ 1 > *URATlO 

GO TO 450 v ^ . 

430 CONT 1NUE 

U < J . I > = U<J.I)«UY2/URE 
GO TO 450 
440 CONTINUE 

u(J»i> = ucj.d 
450 CONTINUE 

IFUTR999.LT. IPHIUGO TO 6001 
WRITE <6.6002) 

6002 FORMAT ( 1H0 »40X.*INITIAL STREAMWISE VELOCITY PROFILE 
WRI TE (6 .6000) <UU*3).J=1.JMX> 

6000 FORMAT ( 1 H »loF10.5> 

6001 KF = KE 
RETURN 
ENO 


AT SLOT®) 


VEL1N.235 
VELIN.236 
VELIN.237 
VEL IN • 2 39 
VELIN.239 
VEL IN ■ 24 0 
VELIN.241 
VELIN.242 
VEL IN • 243 
VEL IN. 244 
VELIN.245 
VELIN.246 
VELIN.247 
VELIN.248 
VELIN.249 
VELIN.250 
VELIN.251 
VEL IN .252 


COMMOnVsCRAT 1 7alFS<200>.OBETA<200>.Y<100).JY<25).JYT<25).OYJ25). 


10 


20 


95 


XX (25) ♦ YPL U 00 ) ♦ YO U 00 > »CF (200 > ♦ YOO ( 1 00 ) .U 1 1 00 * 3) .UT ( 1 00 ) * V < 1 00 ) * 
rAMI(lOO>.GflMFU0O).H<2OO)*USU0O)»YYUOO)»UR(lO0) *UUR U 00 ) ♦ 

UP U 00 > .WU 00.3) .6(400 ).0W (400) .YYUEL U00 ) *GNUT < 10 0.31 J.OU < 200) . 

UT ABLE ( 1 00 ) »OUO Y < 1 00 . 3 > *PS (1 00 ♦ 3 > *SP < 1 00 * 3 1 *THET A <200 ) * 

0X0(20.30) .PPC< 2 0.30) .UUC( 20.30 ) .UEDGE( 100) .WP< 100) .XPGjlOO . 

UPGUOO) .WCU00> .BETA (10 0) .RTAB (50) *0(99) *GW<99) .A3( 100) *A31 U00 
7.A4U00) .0UMMY(452) ~ * F .ITFR.KL. 

COMMON/ GEO / CFl.HI.RTN.UN.UTAU.RD.OELS.ThETAI tZ.C.KF.ITER.KL 

1 KYG.KX.JMX 
COMMON /5ANGLE/ SANGLE 
COMMON/ XST ART / XSTART 
COMM0N/NST/N5T *hc .nru 
KL1 = KL ♦ 1 

KJ = 9999 , - 

AE » 1000000. 

CBETA = 0. 

ALPAN = ALFS(NST) 

CBETA = CBETA®. 01745329 
DO 5 J = 1.10 
BETA ( J) = CBETA 
CONT INUE 

9ETMJ) = 1 CBFTA«(1. - <Y(J) - Y ( 1 0) ) / (Y ( JMX > - YllO))) 

CONT INUE 

BET A ( JMX-2 ) = .0®BETA ( JMX-2) 

BETA(JMX-l) s . 5 fl BET A ( JMX- 1 ) 

I = 3 

Ulltl) ” 0. 

W(1 .1) = 0. 

00 20 J = JMX.KF 
BETA(J) = BET A (JMX) 

CONTINUE 

U utl ) J = 2 (J( J. I ) ®COS (ALPAN ♦ BETA( J) ) /COS ( BE T A ( J) ) 

W(J*I) * U(J.I)«S1N(ALPAN ♦ BET A <U ) ) /COS <e t T A ( J) ) 

CONTINUE 

RETURN 

ENO 


WRITE. 2 
WRITE. 3 
WRITE. 4 
WRITE. 5 
WRITE. 6 
WRITE. 7 
WRITE. 8 
WHITE. 9 
WRITE. 10 


WRITE. 

11 

WRITE. 

12 

WRITE. 

13 

WRITE. 

14 

WRITE. 

IS 

WRITE. 

16 

WRITE. 

17 

WRITE. 

18 

WRITE. 

19 

WRITE. 

20 

WRITE. 

21 

WRITE. 

.22 

WRITE. 

,23 

WRITE. 

.24 

WRITE. 

.25 

WRITE, 

,26 

WRITE. 

.27 

WRITE. 

.26 

WRITE. 

► 29 

WRITE. 

.30 

WRITE 

.31 

WRITE 

.32 

WR ITE 

.33 

WRITE 

.34 

WRITE 

.35 

WRITE 

.36 

WRITE 

.37 

WRITE 

.38 

WRITE 

.39 

WRITE 

.40 

WRITE 

.41 
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OVERLAY (FR]5.t3«2) 

PROGRAM DEVELOP 

C THIS OVERLAY CALCULATES DOWNSTREAM ROUNDARY LAYER DEVELOPMENT 

COMMON/ SCRAT / ALF S ( 20 0 ) *CBE T 4 ( 2 00 ) ♦ Y U 00 > « JY ( 25 ) » JYT ( PS ) ♦ DY ( 25 ) 

1 XX(25)*YPL(100)*YDUOO)*CF(200> .YOU (100).U(100*3>*UT(100>*V(100) 

2 GAM I (100) * G AMF <100) *0(200) .US (100) *YY( 100) *UR( 100) .UURUOO). 

3 UPtlOO) »W( 100*3) *8(400)*BU<400> .YYOEL(lOO) *GNUT(100.3> * DU (200) ♦ 

4 UT ABLE (100) «OUDY (100*3) .PS U 00 * 3 ) *SP ( 1 00 * 3 ) * DUMMY ( 200 > * 

5 0X0(20*30) *PPC (20*30) *UUC(20*30 ) *UEDGE (1 00 > * WP (1 00 > * XPG< 1 00 ) * 

6 UPG (100) tWC(lOO) *0ETA(1OO)*RTA0(5O) *T(99) *UW(99) ,A3(100) *A31 (100 

7 * A4 ( 1 00 ) * DUNCE (452) 

COMMON/ GEO / CFI *HI.PTN*UN*UTAX*RO*OELT*THETAI»ZfC»KF*ITER»KL» 

1 KYG*KX * JOB 

COMMON /X IN/ XIN( 100) *ZIN( 100) *CP1N(100) *5U(100) 

COMMON /NPT/ NPT 
COMMON/ XST ART / XST ART 
COMMON /SANGLE/ SANGLE 

COMMON/ SZ4 / UTAU»UD*0ELS.*TKETA*H*0ELTA«CF2* XMX.GNU 
COMMON /TITLE/ TITLE (8) 

DIMENSION X (3) *U8 (3)*CF2(3)*P(3> 

C0MM0N/SZ3/X «U8 

COMMON/SZ l / JMX.IMX.NP.UTS* ITRMX.WT *KWAL*DX »U8IN 

COMMON/GR ID/YCP<20) *CP(20*30) *YGAP 

COMM0N/CL/CL»CDT.CDF*CDP*D‘JM(2) .CM 

COHMON/SZ7/KRP2 

COMMON/ PRESSUR / P 

COMMON/SZ9/ITP 

COMMON/SZ 14/NPRF 

C0MM0N/SZ21/ITRR 

COMMON/ VPRF /wVPR 

COMMON/SZ T8L/XSW*HSV 

COMMON/ DU8X / DU8X 

COMMON/OX 1CR/DXM AX 

COMM0N/XMON/TH2.CF3 

COMMON/ SHAPE/ JSP.CNNS.UMX.UM IN. JMN.MCASE 
COMMON/ CURV1 / R(3) 

CGMMON/PLU0/ NCPX »NCPY*KCP* YOELP 
COMMON/ JAG/LST2 

common/mary/oxs 

COMMON/DELGFO/ODELT 
C OMMON/PNTOP/KK z 
COMMON/ST A T/PHREF.UREF 
COMMON/ STP/KSTP 
COMMON/UVEL/UENO 
COMMON/XTRIP/KCODE .TR IP 

COMMON/ WH/W 8 { 3) _ 

COMMON/HLOUT/ HS.THTS.CFS 
COMMON/SEG/ nCMPT .NFLAP .NFP.NC (66) 

COMMON/ITR/ITRN.ITRMAX 

common/ksep/ksep 

COMMON/DENSE/ SUO ( 200 ) .USD ( 200) 

COMMON/UIN/UINUOQ) 

COMMON/XTB/XT8(30> 

COMMON/NGWID/NGRID 

COMMON/P ARAM/ MACH , ALPHA »REF A .MAT IN.REFC »U INF 

C0MM0N/RNB/RN8 

EQUIVALENCE (Gwn ) ,W(2,3) ) 

DIMENSION G(99)*CW<99) 

EQUIVALENCE <GU).U(2.3>> 

REWIND 12 
JMX = JOB 
UTAU = UTAX 
- WVPR - 6H NO 
00 I I = l »NPT 
XPG(I) = SU ( I ) *R£FC 
UPG ( I ) a UIN(i) 

1 CONTINUE 

GNU = UINF*REFC/(12.«RNB) 


DEVELOP. 3 
DEVELOP. 9 
OEVELOP. 5 
♦ DEVELOP. 6 
.DEVELOP. 7 
DEVELOP. 8 
DEVELOP • 9 
DEVELOP. 10 
OEVELOP. 1 1 
) DEVELOP .12 
DEVELOP. 13 
DEVELOP. 19 
OEVELOP. 15 
OEVELOP. 16 
OEVELOP. 17 
OEVELOP. 18 
OEVELOP. 19 
OEVELOP. 20 
DEVELOP. 21 
OEVELOP. 22 
OEVELOP. 23 
DEVELOP. 24 
DEVELOP. 25 
OEVELOP. 26 
OEVELOP. 27 
DEVELOP. 28 
OEVELOP. 29 
DEVELOP. 30 
DEVELOP. 31 
DEVELOP. 32 
DEVELOP. 33 
DEVELOP. 34 
OEVELOP. 35 
OEVELOP. 36 
OEVELOP. 37 
OEVELOP. 38 
DEVELOP. 39 
DEVELOP. 90 
OEVELOP. 91 
OEVELOP. 92 
OEVELOP. 93 
DEVELOP. 99 
DEVELOP. 45 
DEVELOP. 46 
OEVELOP. 47 
OEVELOP, 48 
OEVELOP. 49 
DEVELOP. 50 
DEVELOP. 51 
DEVELOP. 52 
DEVELOP. 53 
DEVELOP. 54- 
DEVELOP .55 
DEVELOP. 56 
OEVELOP. 57 
OEVELOP.S0 
OEVELOP. 59 
OEVELOP. 60 
OEVELOP. 61 
OEVELOP. 62 
DEVELOP. 63 
OEVELOP. 64 
DEVELOP. 65 
OEVELOP. 66 
OEVELOP. 67 
OEVELOP. 68 
OEVELOP. 69 
OEVELOP. 70 


176 



16*+ 

165 

167 

170 

176 

176 

202 

207 


207 

221 

225 

227 

233 

234 
2*+2 
242 
244 

244 

252 

253 

254 
256 


CALL OATAIN(XSTART) 

CALL SETUP2 <LPR.XP.LST1 » LST2 . ITRR*0X1 .DX2.CX.JMX1 .JMX* 
1X*XS7ART.NPRF9U8.U8IN.P*DU> 

R (1) =R<2)=R <1>= 10000000. 

K S TP = 2 
UEND = U8(3) 

c velocity profile input 
call vinput 

CALL PRINT ( 1 ) 

M s 1 


DEVELOP .71 
OEVELOP.72 
OEVELOP.73 
OEVELOP.74 
DEVELOP. 7S 
OEVELOP .76 
OEVELOP.77 
DEVELOP. 78 
DEVELOP. 79 
DEVELOP. 80 


LHV = l 

OXS =DX 

ODELT = 0. 

PS < 2 » 3 ) = -P<3) 

90 CONTINUE 
LOX = 1 

IF( (M.EQ.2) .ANO. JKCP.EO.l ) ) GO TO 5346 
USURF = USFNT <X<3) »U8IN) 

U8 ( 3 ) 3 USURF 

IF (KV? AL .LE . 1 ) Ufl ( 3 ) = USURF/ < 1 . *Y < JMX > /R< 3 ) > 

5346 CONTINUE 

CF 3 = CF2<3> 

CALL CFCALC<CF2«Y.U.GNU.X.U8 *AQ> j 

IFIKSEP.EO.n GO TO 5554 
CFSQRT = SOR7(CF2<3>> 

U7AU = UMX«CfSQRT 
DUDY (1.3) = CF2(2)/AO 
CALCULATE HOUNORY LAYER THICKNESS. 

DELTA = THICK (Y.U.U8.JMX) 

CALCULATE REMAINDER OF U PROFILE FROM EDGE OF R.l« TO OUTER LIMITS 
IF (KCP.EO. 1 ) GO TO II 
DO 66 J- JMX » 1 00 
U< JO) = U 8 < .7 ) 

66 CONTINUE 

GO TO 12 
CONTINUE 
JMM 3 JMX ♦ 3 
DO 67 J = JMM. 100 
U ( J . 3 ) = U8<3> 

CONTINUE 
CONTINUE 
CALCULATE THE DUDY PROFILE. 

CALL DERIV (JMX. DELTA. Y«DUOY»U) ... .. 

7H2 s THETA 
HSV = H 

kall = l 

GO TO (10*20). K*AL 
10 CONTINUE 

R < 3 ) = TPLU1 (XC3) .XPG.RTAB.l.NPT) 

R(2) = TQLU1 (X(2) .XPG.RTA0.1.NPT) 

20 CONTINUE 

CALCULATE THE DISPLACEMENT THICKNESS AND MOMENTUM THICKNESS. AND THE 
C SHAPE FACTOR. 

H = SHAPE(DElS»THETA.P.Y,U9U8.JMX»X»YYDEL9KALL) 

IF (H.L7.1.26) 1 . 26 

IF (KCP.E0.2 > GO TO 5573 
IF (X (3) ,GT .XS7ART ) GO TO 5573 
XPZ « X ( 3 ) 

GO TO (5551.5555). M 
5551 CONTINUE 

XPZ = XST ART 

5555 CONTINUE 

CALCULATE THE BOUND ARY-LAYER PRESSURE GRADIENT BASED ON INPUT CP. 
CALL PF IELD (M.XPZ .P.Y.XTB) 

U ( JMX ♦ 2 ) = UA(3) 

U ( JMX ♦ 3) = U8 ( 3 ) 

W(JMX,2) = W8(3) 

W ( JMX * 3 ) = WP ( 3) 


n 


67 

12 


DEVELOP. 81 
DEVELOP. 82 
DEVELOP. 83 
OEVELOP. 84 
OEVELOP. 85 
OEVELOP. 86 
DEVELOP .87 
OEVELOP .88 
DEVELOP ,89 
DEVELOP. 90 
DEVELOP. 91 
DEVELOP. 92 
DEVELOP .93 
OEVELOP, 94 
OEVELOP. 95 
DEVELOP. 96 
OEVELOP .97 
DEVELOP .98 
DEVELOP. 99 
DEVELOP. 100 
DEVELOP. 101 
DEVELOP. 102 
OEVELOP. 103 
DEVELOP. 104 
*«m»0EVELOP.1O5 
DEVELOP. 106 
DEVELOP. 107 
DEVELOP. 108 
DEVELOP, 109 
DEVELOP. 1 10 
DEVELOP .111 
DEVELOP. 112 
DEVELOP. 11 3 
OEVELOP. 114 
DEVELOP. I 15 
DEVELOP. I 16 
DEVELOP. 117 
OEVELOP. 119 
DEVELOP. 1 19 
OEVELOP. 120 
DEVELOP. 121 
OEVELOP. 122 
OEVELOP. 123 
DEVELOP .124 
DEVELOP. 125 
DEVELOP. 126 
DEVELOP. 127 
DEVELOP. 128 
DEVELOP. 129 
DEVELOP. 130 
DEVELOP. 131 
DEVELOP. 132 
DEVELOP. 133 
OEVELOP. 134 
OEVELOP. 135 
OEVELOP. 136 
OEVELOP. 137 
DEVELOP. 138 
DEVELOP. 139 
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non 


M - 2 

5573 CONTINUE 

IF (X < 3) .GT.XSTART) GO TO 5541 
ITR -- 1 

CALL £XTRAP(TTR*JMX*U*X*LPR*UP*U0> 

5541 CONTINUE 

CALL YPRESS 
UP(JMX) = Ufi ( 3 1 

WPIJMX) = WQ <3> _ 

LPP = LSVFN(X*XSTART*LHV*H*HSV*THE7A*TH2*CF2*CF3) 

NOEL = 1 

CALL HTYOEL (H*YO*2) 

00 5553 J = ItJHX 
UTABLEIJ) = U( J*3 > 

5553 CONTINUE 

UO = TflLUl ( YD* YYDEL »UT ABLE * 2 * JMX ) 

UD » UMX-UD 

CALL EDDY (GNUT*3*Y*DUDY*P> 

CALL VVEL<V*X»LST2*X$TART*Y *U*GNUT *GNU* P *DUOY *VINT*JMX*U8) 
CALL POUT <NPpF*X,XMX.KRTNN*LST2*ITRR*LN*ITR> 

5554 CONTINUE 

CALL RESULT (CF2*JMX*X*1> 

IF <KSEP «EQ* I ) KRTNN * 1 
CALL ARRANGE (KRTNN) 

GO TO (75*77)* KRTNN 
75 CONTINUE 

KALL ~ 2 

H = SHAPE (0ElS*THETA*P*Y*U*U8*JNX*X»YY0EL*K ALL) 

FI = .5*(HS * 5.) 

USMAX = SORT (U8 < 3 ) ®*2 ♦ W0(3)««2) 

USINF = U8IN 

UETE a USHA X /USINF 

COT = 2.mthts/refo*uete»»fi 

CALL PRINT <I0) 

00 5556 J- 1 * JMX 
US(J) = US ( J) /U5M AX 
5556 CONTINUE 

NF = NFLAP-NFP * 1 

IF(NF.EG.l) WRITE (12) JMX ♦ (US ( J) *Y< J) * J»1 * JMX) 

REWIND 12 
RETURN 
77 CONTINUE 
7010 CONTINUE 

IF (X (2) *OX2-XX (KP ) ) 111*111*100 
109 X ( 3 ) = XX(KP) 

GO TO 113 
111 DXl a 0X2 

X 4 3 ) S X (2 ) *nxl , 

IF(KCP.EQ.l) go to 5577 
USURF = U8FNT (X (3) *U8IN) 

U8 ( 3 ) = USURF 

IF (KWAl .L£. 1 > U8 ( 3 ) = USURF / ( 1 • *Y (JMX ) /R (3) ) 

0U8X a TBLU1 (X(3) .XPGfDU.l.NPT) 

0U8X= 12,*DU8X*U8IN 
p { 3 ) = USURF *DU8X 
JP2 = JMX ♦ 3 
JL6 = JMX-6 
00 81 J a 1*JP2 
GO TO (80*82) *KWAL 

80 UEOGE(J) = USURF/(1.* Y(J)/R(3)> 

GO TO 81 

82 UEDGE(J) = UP ( 3) 

81 CONTINUE 

• U ( JMX ♦ 1 ♦ 3 ) * UEDGE (JMX* 1 > 

U t JMX *2*3) = UEOGE C JMX*2) 1 

GO TO 5578 
5577 CONTINUE 

XPZ = X(3> 

CALL PFIEL0<M,XPZ*P*Y*XT8) 


DEVELOP. 140 
DEVELOP. 141 
0EVEL0P.142 
DEVELOP. 143 
DEVELOP. 144 
DEVELOP. 145 
DEVELOP. 146 
DEVELOP. 147 
OEVELOP .148 
DEVELOP. 149 
OEVELOP. 150 
DEVELOP. 151 
OEVELOP. 152 
DEVELOP. 153 
DEVELOP. 154 
DEVELOP. 155 
OEVELOP. 156 
OEVELOP. 157 
DEVELOP. 158 
DEVELOP. 159 
DEVELOP. 160 
DEVELOP .161 
DEVELOP, 162 
OEVELOP. 163 
OEVELOP. 164 
DEVELOP. 165 
DEVELOP. 166 
DEVELOP. 167 
OEVELOP. 168 
OEVELOP. 169 
DEVELOP. 170 
DEVELOP. 171 
DEVELOP. 172 
DEVELOP. 173 
OEVELOP. 174 
OEVELOP. 175 
DEVELOP. 176 
DEVELOP. 177 
DEVELOP. 178 
DEVELOP. 179 
OEVELOP. 180 
DEVELOP. 181 
DEVELOP. 182 
DEVELOP. 183 
OEVELOP. 184 
DEVELOP, 185 
DEVELOP. 186 
OEVELOP. 187 
DEVELOP. 188 
OEVELOP. 189 
DEVELOP. 190 
DEVELOP. 191 
OEVELOP. 192 
OEVELOP. 193 
OEVELOP. 194 
DEVELOP. 195 
DEVELOP. 196 
DEVELOP. 197 
OEVELOP. 198 
OEVELOP. 199 
DEVELOP. 200 
OEVELOP. 201 
OEVELOP. 202 
DEVELOP. 203 
OEVELOP. 204 
DEVELOP. 205 
DEVELOP. 206 
DEVELOP. 207 
DEVELOP. 208 
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S578 CONTINUE 
113 0X=X(3)-X<2) 

ITR = I 
100 CONTINUE 

CALL ROUTINE TO EXAMINE ITERATION COUNTERS CONCERNED WITH INITIAL 
C PROFILE AND INTERMEDIATE PROFILES GENERATED BY THE PROGRAM. 
CALL SPEED(LST2,1TRR*ITR*V*U*JMX*X*Y*LN> 

IF (LOPT *EG,2) GO TO 5999 
IFUTR.LE.l) GO TO 6000 
5999 CONTINUE 

DELTA = THICK(Y*U,UB*JMX) 

IF(ITR.GY.l) GO TO 6000 
GO TO < 30 * AO ) * KWAL 
30 CONTINUE 

R < 3 ) - TBLU1 <X(3> *XPG*RTA8*1*NPT) 

40 CONTINUE 

IF <KCP .EG • 1 > GO TO 6001 
USURP = U8FNT (X (3) *U8 IN) 

U8 ( 3 ) s USURF 

IF (KWAL.LE.l) U8 ( 3 ) = USURF/ ( 1 •♦Y C JMX ) /R <3> ) 

0U8X = TRLU1 (X(3),XPG*DU*1*NPT) 

DU8X = 12. tt OU8X»U8 IN 
P < 3 ) = USURF °DU8X 
00 83 J = 1*JP2 
GO TO (84*85). KWAL 

84 UEDGE(J) - USURF/(1.*Y(J)/R<3) ) 

GO TO 83 

85 UEOGE(J) = U8<3> 

83 CONTINUE 

U(JHX*1*3> * UEDC-E I JMX* 1 > 

U (JMX *2*3) = UEDGE ( JMX+2 ) 

GO TO 6002 

6001 CONTINUE 
XPZ = X (3) 

CALL PFIELO(M*XP2»P*Y*XT8) 

6002 CONTINUE 
6000 CONTINUE 

IF(LST2.EQ.1> LPR = 1 

CALL EX TRAP < I TR . JMX *U *X *LP« *UP *U8 ) 

DO 5 J = 2. JMX 

IF(ADS(V(J) > ,GT.U8(3)*.25) GO TO 6 
GO TO 5 

6 CONTINUE 

IF <V < J) ) 7*7.8 

7 V ( J ) = -*25»U8(3) 

GO TO 5 

8 V<J) = .2S*Ufl(3) 

5 CONTINUE 

CALL COFISH 
11=2 
JJ = 1 

CALL MATRIX (R*G*JMX-1 *II*JJ> 

C 

IF ( S ANGLE *EQ.O. >GO TO 9058 
C 

CALL MATRIX (PW.GW.JMX-1 * II* J J) 

9058 CONTINUE 

GO TO (90.90S9) * LST2 

9059 CONTINUE 

CALL TEST <LN»ITR*1*LST2) 

U (JMX * 3 ) = ua <3> 

M ( JMX * 3 ) « WR(3) 

CALL OPT ION <LN*LST2*DX2*0X1 *DXMAX* ITR*X*L0PT*KRP2*LDX) 

GO TO (90*100*900)* LOPT 
900 CALL PRINT (4) 

CALL PRINT (2) 

CALL PRINT (4) 

RETURN 

END 
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DEVELOP. 213 
DEVELOP. 214 
OEVELOP .215 
DEVELOP. 216 
OEVELOP, 217 
OEVELOP .218 
DEVELOP. 219 
OEVELOP. 220 
OEVELOP .221 
OEVELOP. 222 
OEVELOP. 223 
OEVELOP. 224 
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OEVELOP. 226 
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OEVELOP. 242 
OEVELOP. 243 
DEVELOP. 244. 
DEVELOP. 245 
DEVELOP. 246 
DEVELOP. 247 
OEVELOP. 248 
OEVELOP. 249 
OEVELOP. 250 
DEVELOP. 251 
OEVELOP. 252 
DEVELOP .253 
DEVELOP ,254 
OEVELOP. 255 
OEVELOP. 256 
DEVELOP. 257 
OEVELOP. 258 
DEVELOP. 259 
OEVELOP. 260 
DEVELOP. 261 
OEVELOP. 262 
DEVELOP. 263 
DEVELOP. 26A 
DEVELOP. 265 
OEVELOP. 266 
OEVELOP. 267 
DEVELOP. 268 
DEVELOP. 269 
OEVELOP. 270 
OEVELOP. 271 
OEVELOP. 272 
OEVELOP. 273 
OEVELOP. 274 
DEVELOP. 275 
OEVELOP. 276 
DEVELOP. 277 
DEVELOP. 278 
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o tn ui 


SUBROUTINE Al. I <X ♦ ARG. VAL ♦ Y.NOIM .EPS* IER) 


DIMENSION ARG < l ) »VAL < 1 ) 

IER = 2 
DELT2=0. 

IF (ND1H-1 ) 9» 7. 1 

START OF AITKEN-LOOP 

DO 6 J=2fN0IM 

DELTl=DELT2 

1EN0=J-1 

DO 2 1 = 1 * IENO 

H=ARG(I)-ARG(J> 

IF(H)2.13*2 , 

VAHJ) = <VAL <T) * ( X-ARG < J ) > -VAL < J) ° (X-ARGU)) )/H 
OELT2 = ABS(VAL<J)-VALHENO) > 

I F ( J-2 ) 6*6*3 
IF (DELT2-EPS) 10*10.4 
IF ( J-5 ) 6.5*5 
IF<0ELT2-0ELTl)6*ll*ll 
CONT INUE 

END OF AITKEN-LOOP 

U=NDIM 
Y=VAL (J) 

RETURN 


AL I 

• 2 

AL I 

.3 

AL I 

.4 

AL I 

.5 

AL I 

.6 

AL I 

.7 

AL 1 

.8 

AL I 

• 9 

AL I 

• 10 

AL I 

*11 

AL I 

*12 

AL I 

♦ 13 

AL I 

.14 

ALI 

.15 

AL I 

• 16 

AL! 

• 17 

ALI 

.18 

ALI 

*19 

ALI 

• 20 

ALI 

.21 


10 


THERE 
IER = 0 
GOTO 8 


IS SUFFICIENT ACCURACY WITHIN NDIM-1 ITERATION STEPS 


11 

12 


TEST VALUE 
IER*1 
J= IENO 
GOTO 8 


DELT2 STARTS OSCILLATING 


ARE TWO IDENTICAL ARGUMENT VALUES IN VECTOR ARG 


; THERE 

13 IER-3 

GOTO 12 
END 

SUBROUTINE ARRANGE (KN) 
ROUTINE RE ARRANGES BOUNDARY 
COMMON/ SCRAT / 


layer parameters for input to source 


ALI.22 
AL I • 23 
ALI.24 
AL I • 25 
AL I • 26 
AL I *27 
AL I *28 
AL I • 29 
ALI.30 
AL I *31 
AL1 *32 
ALI.33 
AL I * 34 
AL I *35 
AL I *26 
ALI.37 
ALI.38 
ALI.39 
AL t *40 
ALI.41 
ALI.42 
21MAY.81 
2 l H AY • 82 


ALFS (200) *CB6TM200 ) *YU00>*JY<25)*JYT125>*DY(25>*21MAY.83 


1 XX<25> *YPL MOO) .YOU 00 > *Cf (200 > *YDD( 100) ,U( 100*3) *UT (100) *V< 100) 

2 GAM I 1100) .GAMF (100)«H(2O0)*USI100)*YY(100)*URU0O) ♦UURUOO) * 

3 UPUO0)*W(lOO*3)*Bt4OO)*BW(4OO) *YYDEL (100) *GNUT (100*3) ♦ DU (200) » 

4 UTABLE U 00) *OUOY( 100. 3). PS <100.3 ).SP <100*3 >. THETA (200)* 

5 DXD ( 20 *30 ) »PPC (20*30) *UUC( 20.30 ) *UEDGEU 00) *WP ( l 00) ♦ XPG ( 1 00 ) * 

6 UPG (100) .WC(100) .BETA(IOO) *RTA8(50) * G ( 99 ) *GW (<99) .A3(100)*A31(100 
7. A4 < i oo ) . dummy (452 > 

COHMON/DENSE/SUD(200) *USD<200) 

COMMON/P ARAM/ MACH ♦ ALPHA * REF A *MAT IN*REFC*UINF 

C0MM0N/BL0UT/H5. THTS.CFS 

COMMON/NPT/NPT 
C0MM0N/SZ3/ X (3) *U8 <3) 

COMMON/XSTART/XSTART .... 

COMMON/SLOT /HSS <1 00 ) *TSS < 100) *DSS U 00 ) *CSS < 100) *USS ( 1 00 ) *DTSS ( 1 00 

IF(X<3) .EQ.XSTART) K*1 
IF (K*EO. 1 ) GO TO 10 
GO TO 30 
10 CONTINUE 
NUS = 200 
SUO(l) 

USD ( 1 ) 

XSUM = 

OELX = 

K = 2 

H ( 1 ) = HSS(l) 


= 0. 

= UPG ( 1 > 

0. 

XPG (NPT ) / l 99* 


.21MAY.84 
21MAY.85 
21MAY.86 
21MAY.87 
2 IHAY* 88 
) 2 1MAY .89 
21MAY.90 
21MAY.91 
21MAY.92- . 
21HAY.93 
21MAY.94 
21MAY.95 
2 1 MAY »96 
) 5APR *815 
21MAY.97 
21MAY.90 
2 1 MAY, 99 
21MAY. 100 
21MAY * 101 
21MAY.102 
21MAY.103 
21MAY.104 
2IMAY* 105 
21MAY.106 
5APR.816 
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7HETM1) = TSS ( 1 > 

cru) = css<n 

00 15 I =2fNUS 

suou> = suou-n ♦ delx/refc 

15 CONTINUE 

00 16 I=2tNUS 

SSUD = SUO < I ) *REF C 

USD < I ) = TBLU1 (SSUO*XPG *UPG» 1 *NPT > 

16 CONTINUE 

DO 20 I =2 »NUS 
X SUM = XSUM ♦ DELX 
IFIXSUM.GT.XO) ) GO TO 100 
HII) = HSSU) 

THETA(J) = TSS(I) 

CF(I) = CSS(I) 

20 CONTINUE 
30 CONTINUE 

IF(KN.EQ.1.AnD.X(3).IT.XPG<NPT>) GO TO 90 
IF <XSUM.GT.X(3) > GO TO 100 
SLOPE = OELX/IX (31-USUH-DELXM 
HU) = H C 2 — 1 > ♦ SL0PEMH5-HU-1) ) 

THETAU) = ThETA(I-I) ♦ SLOPE* < THTS/REFC - THETA{I-1)> 
CFU) = CF(I-l) * SLOPE* (CFS-CF { 1-1 ) ) 

1-1*1 

X SUH a XSUM * DELX 
1F(KN.EQ*11 GO TO 90 
GO TO 100 
90 CONTINUE 
NBL = 1 

HSLOPE = H(I-l) - HU-2) 

TSLOPE * THETAU-1) - THETAU-2) 

DO 95 I =NBL *NUS 
HU) = HU-1) * HSLOPE 
THETAU) = ThETAU-1) ♦ TSLOPE 
95 CONTINUE 
100 CONTINUE 
RETURN 
END 


5APR.817 

5APR.S19 

21MAY.110 

21MAY.111 

21MAY.U2 

21MAY.H3 

26 APR .72 

26 APR .73 

21MAY.115 

21MAY.116 

21MAY.117 

21MAY.1 18 

5APR.819 

5APR.820 

5APR.821 

21MAY.122 

21MAY.123 

7 JUNE .183 

2 1 MAY • 1 25 

21MAY.126 

21MAY.127 

21NAY.128 

21MAY. 129 

21MAY.130 

2 1 MAY .131 

21MAY.132 

2 1 MAY » 1 33 

2 1 MAY • 1 34 

21MAY. 135 

21HAY.136 

21MAY.137 

2 l MAY. 1 38 

2 1MAY.139 

21HAY.140 

21MAY.141 

21MAY.142 

21HAY.143 

21MAY.144 


SUBROUTINE CFCALC (CF2tY»Uf GNU»X*U8.AO> 


COMMON/ SCRAT / ALFS ( 200 ) .CBET A (200 > * 0 < 1 00 ) * JY 1 25) * JYT ( 25 ) *DY (25) i 

1 XX <25 > * YPL 1100) .YOU 00) *CF (200) ♦ YOU U 00) .TUOO»3)»UTUOO)»VUOO)' 

2 GAM 1 ( 100> ♦GaHFUOO) »OM <200) »USU00) *YY( 100) *UR (100) .UURUOO) ♦ 

3 UP (100) #WflO0*3) *B < 4 00 ) »BH(400) .YYDEL (lOO) tGNUT (100»3)*DU<200)» 

4 UT ABLE < 100) . DUDY U 00 * 3 ) * PS U 00 * 3 ) .SPU00.3) * DUMMY (200) . 

5 0X0(20 *30) *PPC(2Q*30) »UUC (20*30) *UEOGE< 100 > tWPUOO) .XPGUOO) » 

6 UPGUOO) *WC(100) ,8ETAU00> .RTAB<50) *G(99) *GW(99) *A3<100) »A31 (100 
7 ♦ A4 (100) tDUNCE (452) 

COMMON /XlN/ XlN(lOO) vZINUOO) ♦CPINUOO) *SU(100> 

COMMON /NPT/ NPT 

DIMENSION CF2(3) .X(3) *US(3> .P<3> 

COMMON/SZ 1/ JMX*LMX*NP»UTS* 1TRMX.KT »KWAL *0X sU8lN 
COMMON/ DU8X / OU8X 

COMMON/SHAPE/ JSP »CNNS»UMX * ? JM IN* JMN*MCA5E 

common/prank/key 

COMMON/ CUR V \ / R (3 ) 

COMMON/PLU0/ NCPX »NCPV*KCP9YDELP 
COMMON/ PRESSUR / P 

COMMON/ SZ4 / UTAUtUD»OELS9THETA.H*OELTA,DUMfXMX»OHH 
COMMON/KSEP/KSEP 


DIMENSION Y u 00 ) 9U( 100 * 3 ) 9 OUH ( 3 ) 
UMX = U ( 1 9 3 > 

JSP a 1 
KEY - 1 

DO 60 J = 2 * JMX 
UMX S s UMX 

UMX = AMAX1 (UMX9U<J»3>> 


CFCALC. 24 
CFCALC. 25 
CFCALC. 26 
CFCALC. 27 
CFCALC. 28 
CFCALC. 29 
CFCALC. 30 
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IF (UMX.NE.UMXS) JSP=J 

CFCALC.31 



IflU< J,3> .LE.Q. > GO TO 200* 

CFCALC.32 



IF(U<J*3)-UMX> 80*60*60 

CF C ALC .33 

60 

CONTINUE 

CF CALC.34 


80 

CONTINUE 

CFCALC.35 



IF ( JSP.LT • < JMX-2)) GO TO 110 

CFCALC.36 

C 


JSP s JMX 

CF CALC. 37 



CNNS s .999 

CF CALC . 38 



MCASE = 1 

CFCALC.39 



GO TO 120 

cfcalc.ao 


no 

CONTINUE 

CFCALC.41 



JMN = JSP 

CFCALC. 42 



UMIN = UMX 

CF CALC *43 



00 115 J=JSP«JMX 

cfcalc.aa 



UMNS = UMIN 

CF CALC. 45 



UMIN = AMINHUMIK,U(J*3) > 

CFCALC.46 



IF (UMIN. NE. UMNS) JMN=J 

CFCALC.47 



IF(U( J*3)-UMIN) 115*115*116 

CFCALC .48 


ns 

CONTINUE 

CF CALC *49 

c 

1)6 

IF(R<3) .LE.1.0E+6) GO TO 117 

CFCALC. 50 


116 

CONTINUE 

CFCALC. 51 



IF<JMN.LT.<JMX-1>) go to na 

CFCALC. 52 

c 

117 

IF (UMIN.LT. US (3) *.10) GO TO 118 

CFCALC. 53 



IF(UMIN.GE.UMX*.95> GO TO 121 

CFCALC. 54 



MCASE = 2 

CFCALC. 55 



CNNS a 1*001 

CFCALC. 56 



GO TO 120 

CFCALC. 57 


118 

CNNS a .999 

CFCALC. 58 



MCASE = 3 

CFCALC. 59 



IF (A0S (UMX-UMJN) /UMX -.0005) 119*119*120 

CFCALC. 60 


119 

KEY = 2 

CFCALC. 61 


121 

MCASE = 1 

CFCALC. 62 



CNNS = .999 

CFCALC, 63 



JSP = JMX 

CFCALC. 64 



JMN = JMX 

CFCALC. 65 



UMX = U8<3) 

CFCALC. 66 


120 

CONTINUE 

CFCALC. 67 



AQ = GNU/U8 < 3 > ®*2 

CFCALC. 68 



AQ = GNU/ (UMX*®2 > 

CFCALC. 69 



IF(KCP.EQ.l) GO TO 10 

CFCALC. 70 



0U8X = T8LU1 (X<3) *XPG*DU*1*NPT) 

CFCALC. 71 



0U8X= 1 2 .*DU8X*U8 IN 

CFCALC. 72 



GO TO 20 

CFCALC. 73 


10 

CONTINUE 

CFCALC. 74 



0U8X =-PS <2 * 3 ) /UP (3) 

CFCALC. 75 


20 

CONTINUE 

CFCALC. 76 



X A l = Y(3)*Y<2)/(Y(2)*Y(3)> 

CFCALC, 77 



XA2 = Y(3)*Y(2)* (Y(3)*Y<2) )*<Y<2)-Y<3) ) 

CFCALC. 78 



CF2 1 1 ) - A0*(2.*U(4*3)-9.«J<3*3) ♦ 18. *U (2*3) ) / (6.* ( Y (2) -Y ( 1) >> 

CFCALC. 79 



CF2 ( 2 ) =AQ*(-U<3»3> ♦ A . *U (2 ♦ 3 ) > / < 2 .* ( Y < 2 ) - Y < 1 > ) > 

CFCALC. 80 


- 

CF 2 ( 3 ) = <U<3*3)*Y(2)**3 - U ( 2 * 3 > *Y ( 3 ) *»3 ) /XA2 

CFCALC, 81 



CF2 (3 ) - CF2 (3) ♦ U8 ( 3) *DU8X*XA 1 / (GNU*288 . > 

CFCALC. 82 



CF2 < 3 ) = AQ*cF2 < 3 ) 

CFCALC. 83 



CF2 ( 1 ) = 12.*CF2(1) 

CFCALC. 84 



C F 2 ( 2 ) = 12.*CF2(2) 

CFCALC. 85 



CF2 < 3 ) - 12.*CF2(3) 

CFCALC. 86 



IF (CF2(3) ) 200*70*70 

CFCALC. 87 


70 

continue 

CFCALC. 88 



RETURN 

CFCALC. 89 


200 

CONTINUE 

CFCALC. 90 



CALL PR INT ( 2 ) 

CFCALC. 91 



CALL PRINT ( 8 ) 

CFCALC. 92 



KSEP = 1 

CFCALC. 93 



RETURN 

CFCALC. 94 



ENO 

CFCALC. 95 
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FUNCTION CHE°ERF ( Y > 
DIMENSION 8<20)*A<26> 
DIMENSION A A ( 1 7 ) ♦88119) 


CHEBERF.2 
CHEBERF.3 
CHEBERF. 4 

DATA AZERO 

/ 3.887303655222904 

/ 

CHEBERF .5 

DATA A(I) 

/-I .381631420019799 

/ 

CHEBERF • 6 

DATA A < 2 ) 

/ .647316404854584 

/ 

CHEBERF » 7 

DATA A ( 3 ) 

305931024422036 

/ 

CHE8ERF.8 

DATA A (4 ) 

/. 138679747202030 

/ 

CHEBERF .9 

DATA A ( 5 ) 

/-. 059247456591259 

/ 

CHEBERF • 1 0 

DATA A ( 6 > 

/ .2369 17518 24 9282E-01 

/ 

CHEBERF. 1 1 

DATA A 1 7 ) 

8 84 7 362635240 45E»02 

/ 

CHE BERF * 1 2 

DATA A ( 8 ) 

/ .3085661 71 136092E-02 

/ 

CHEHERF *13 

OATA A ( 9) 

/-.100638635123798E-02 

/ 

CHEBERF .14 

OATA A ( 1 0 ) 

/. 30 75463288430 79E-0 3 

/ 

CHEBERF.15 

OATA A < 1 1 ) 

*88261 9837553631 E-04 

/ 

CHEBERF. 16 

DATA A 112) 

/ *236450961 66072 6E -04 

/ 

CHEBERF .17 

DATA A < I 3 > 

60791 0028505827E-05 

/ 

CHE 8ERF * 1 8 

DATA A ( 1 A ) 

/ • 14659721 7338083E-05 

/ 

CHEBERF. 19 

DATA A ( 1 5 ) 

0 335 J 599342 72 06E- 05 

/ 

CHEBERF .20 

OATA A ( 1 6 > 

/ ,0072805795442326-05 

/ 

CHEBERF. 21 

DATA AU7) 

/-. 001 50579 1176668E- 05 

/ 

CHEBERF .22 

DATA A ( 1 8 ) 

/ • 0 00297094 7 4205 5E -05 

/ 

CHE RERF .23 

OATA A ( 19 ) 

/-.0 00056021 273938E-05 

/ 

CHEBERF .24 

DATA A ( 20 ) 

/ .000010113162390E-05 

/ 

CHEBERF .25 

DATA A ( 2 1 ) 

/-.l 7S065O485E-1Q 

/ 

CHEBERF .26 

OATA A ( 22 ) 

/. 0291038139 E-10 

/ 

CHEBERF. 27 

OATA A ( 23 ) 

/-, 00465326456-10 

/ 

CHEBERF. 28 

OATA A{24> 

/ .00071 64 B15E-10 

/ 

CHEBERF *29 

DATA A I 25 ) 

/-.0001063749E-10 

/ 

CHEBERF .30 

DATA A ( 26 ) 

/ .0000152A67E-10 

/ 

CHEBERF *31 

DATA 8127) 

/ .0 

/ 

CHEBERF. 32 

DATA 8128) / *0 

IF(Y,GT. 4.0>GO TO 2 
X=Y/4. 

C0EFF = 4.*X<»X-2, 

00 l 1 = 1 » 26 
J = 2 7- 1 

1 B<J)=C0EFF«B<JM)-8(J*2>*A(J> 
BZERO = COEFF tt o U )-e (2> ♦AZERO 
CHEBERF=X/2o« <0ZERO-fl<2) ) ' 
RETURN 

/ 

CHEBERF « 33 
CHEBERF. 34 
CHEBERF. 35 
CHEBERF .36 
CHEBERF .37 
CHEBERF. 38 
CHEBERF. 39 
CHEBERF *40 
CHEBERF. 41 
CHEBERF. 42 

data aazero 

/ 1.97070527225754 

/ 

CHEBERF .43 

DATA AA ( 1 ) 

/-•l 433974027 17750E-01 

/ 

CHEBERF. 44 

DATA AA < 2 > 

/ .297361692202619E-03 

/ 

CHEBERF . 45 

DATA AA <3 ) 

/-.980351604336237E-05 

/ 

CHEBERF .46 

DATA AA <4 > 

/ .0433133^20347286-05 

/ 

CHEBERF. 47 

DATA A A ( 5 ) 

/-. 0 0 2362 15002624 IE- 05 

/ 

CHE8ERF.48 

DATA A A < 6 ) 

/ .000151549676581E-05 

/ 

CHEBERF. 49 

OATA AA ( 7 ) 

/-.00001 1 0 849398 56E-05 

/ 

CHEBERF. 50 

OATA AA < 8 ) 

/ *09042 59 Q14E-1Q 

/ 

CHEBERF. 51 

DATA A A ( 9 ) 

/-*00809470S4£-10 

/ 

CHEBERF .52 

OATA AAUO) 

/ .00078538566-10 

/ 

CHEBERF, 53 

OATA AAUl) 

/-.000081791SE-10 

✓ 

CHEBERF, 54- 

DATA AA ( 1 2 ) 

/ .907156-15 

/ 

CHEBERF.55 

DATA AAU3) 

/-.10646E-15 

/ 

CHEBERF. 56 

OATA AA(14> 

/ *01 315E- 15 

/ 

CHEBERF .57 

DATA AAU5) 

/-.00170E-15 

/ 

CHEBERF. 58 

DATA AA ( 1 6 ) 

/ .000236-15 

/ 

CHEBERF. 59 

OATA AA (17) 

/-.00003E-15 

/ 

CHEBERF. 60 

OATA 88(18) 

/ .0 

/ 

CHEBERF. 61 

OATA BQ ( 19) 
? X=4./Y 

/ ,0 

/ 

CHEBERF. 62 
CHE8ERF .63 

C0EFF=4.*X«X-2, 

DO 3 1=1*17 
J=18-I 

3 0BU)=COEFF*8B{J«1 > -8R I J* 2 ) ♦ A A < J) 
B8ZERO=C0EFF»R8(l)-BB(2) ♦ AAZERO 


CHEBERF. 64 
CHEBERF. 65 
CHEBERF. 66 
CHEBERF. 67 
CHEBERF. 68 

CHE8£RF=(0BZERO-R8 (2) ) / <2.*Y*EXP (Y*Y) >*.569189583547756 

RETURN 

END 

CHEBERF. 69 
CHEBERF. 70 
CHEBERF. 71 
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SUBROUTINE COFISJ- ' 

ROUTINE CALCULATES MATRIX COEFFICIENTS JOFISH. J 

COMMON/ SCRAT / ALFS ( 200 ) *CBET A ( 200 ) * Y ( 1 00 > * JY { 25 ) * JYT ( 25 ) ♦ OY ( 25 > * COF I SH. A 
1 XX (25) *YPL<100> *YDU00> *CF (200) «YDD< 100) *U <100* 3) *UT (1 00 > * V < 100 > *COF I SH.5 
GAM IU0O)»GAMFU0O)*D(2OO)*USUO0)*YY(!0O)*URUOO) *UUR (100)* COFISH, 6 

UPUOO)*W(lOO*3)*B(AOO>*BW(AOO> * YYDEL (100) *GNUT (100*3)*DU(200)* C0FISH.7 
UT ABLE (100) .DUD* (100*3) *PS'<1 00*3) *SP(1 00*3 > *OUMMY (200) * COFISH. 8 

0X0(20*30) *PPC(20*30) *UUC (20*30) *UEDGE ( 1 00 > *WP < 1 00 ) *XPG < 100 ) * CO FISH. 9 


^ UALMLUTJUMn I, If.UVJU ' '““V . - - - - 1ft 

6 UPG (100) fWC(lOO) *6ETA(100) * RTAB (50 ) *T (00) *DW (99 ) »A3(100) »A3i (100) CO FISH, 10 


7*AA ( 100) ,DUNCE(A52) 

DIMENSION 0(99) *GW (99) 

DIMENSION X (3) *U8(J> *P<3) 

EQUIVALENCE (G< 1 ) *U(2*3) > 

COMMON/5Z 1 / JMX *LMX*NP*UTS* ITRMX*WT *KWAL*0X*U81N 
COMM0N/SZ3/X.U8 

COMMON/ SZA / UTAU*Un*DELS*THETA*H*DELTA*CF2*XMX*GNU 
COHHON/ PRESSUR / P 
COMMON/ CUR V 1 / R (3) 

0 1 MENS I ON Ml (3) *H2 (3) *H3<3> 

C0MM0N/W8/W8 < 3) 

EQUIVALENCE (Gtf < 1 1 *W (2*3) ) 

RCON = 1. 

A2 = WT»P(3) *(l.-WT)«P(2> 

JMX 1 = JMX- 1 

DO 100 J= 1 ♦ JMX 

A3(J) = GNU * GNU 7 (J* 2) 

100 CONTINUE 
1=2 

do no j=2*j mx 

A A < J > = DUY ( ONUT *I*J*Y) W 12. 

110 CONTINUE 

DO 900 J=2 ♦ JMX 1 

IF ( (KWAL.EQ a?) .OR, (R (3) /DELTA *GT , 1 . 0E1 0 ) ) GO TO 202 
201 Hl(3) = P(3)/(R(3)*Y(J)) 

H2 ( 3 ) = 1 2./ (R (3) *Y < J) ) 

HI (2) = R(2)/(R(2)+Y(J) ) 

H2<2) = 1?./(R(2)+Y(J) > 

H3 ( 2 ) = H2(2)«»2 
H3 ( 3 ) = H2(3)« tt 2 
GO TO 210 


202 HI (3) 
H2(3> 
HI (2) 
H2 ( 2 ) 
M3 (2) 
H3 (3) 
A 1 


0. 

0. 


1. 

0. 


210 


<12*/(X(3)-X(2) ) ) * (WT*H1 <3)*UP(J> 
1 U(J*I>) 

AW = (12./(X(3)-X(2)))*(WT«H1(3)*WP(J) 

1 W ( J» I ) ) 

H33 = WT*H3(3) ♦ <1.-WT>*H3(21 
A3 1 ( J) = A3 ( J) * GNUT (J*2) 

A32 = A 3 ( J) - GNU 

PS(J*I*1)= PS(J*I) *(P(3)-PI2)I 

A5 = V(J) 

H22 = WT*H2(3> * (l.-WT)»H2(2) 

A8 = RCON*H22»AA ( J> ♦ (GNU ♦ RCON«A32) *H33 
X2 * Al 

AW - A 1 

IF < J-2 ) 305*305*301 
301 IF(J-JMXI) 320*310*310 
305 A6 = (Y(J*l)-Y(J-l))/12* 

A7 s A6**2/A. 

C LOWER BOUNOARY CONDITION. 


♦ ( 1 ,-WT ) *H1 ( I ) * 
« O ,*WT)«H1 (I)* 


XI 

XI 

X3 

XA 

XA 


= A4 < J) ♦ <WT«H2(3)*(l*-WT)*H2(2))«A31(J> 

X1/A6 - A5/A6 - A3(J)/A7 - RC0N*A32«H22/ A6 
A5*H2 ( 3 ) * 2»«A3(J)/A7 ♦ A8 

= A 4{J> * ( WT °H2 ( 3 ) ♦ (1 ,-WT)*H2(2> )*A31(J) 
A5/A6 - A3(J)/A7 - XA/A6 * RCON tt A32*H22/A6 


COFISH. 11 
COFISH. 12 
COFISH. 13 
COFISH. 1A 
COFISH. 15 
COFISH. 16 
COFISH. 17 
COFISH, 18 
COF ISH.19 
COFISH. 20 
COF ISH.21 
COFISH. 22 
COF ISH.23 
COF ISH.2A 
COFISH. 25 
C0FI5H.26 
COF ISH.27 
COFISH. 28 
COFISH. 29 
COF ISH.30 
COFISH. 31 
CCFISH.32 
COFISH. 33 
COFISH. 3A 
COFISH. 3S 
COFISH. 36 
COFISH. 37 
COFISH. 38 
COFISH. 39 
COFISH. AO 
COFISH. A1 
COFISH. A2 
COFISH. A3 
COF ISH.AA 
"COF I SH. AS 
COFISH. A6’ 
COFISH. A7 
COFISH. A8 
C0FISH.A9 
COFISH. 50 
COFISH. 51 
COFISH. 52 
COFISH. 53 
COFISH. 5A_ 
COFISH. 55 
COFISH. S6 
C0FISH.57 
COFISH. 58 
COFISH. 59 
COF ISH.60 
COFISH. 61 
COFISH. 62 
C0FISH.63 
COFISH. 6A 
COF ISH.65 
COFISH, 66 
COFISH. 67 
C0FISH.68 
COFISH. 69 
COFISH. 70 
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X5 = A5«H2(2) 
C LEFT HAND SIOE. 

am 
0 ( 2 ) 
ewm 

B W ( 2 ) 

C RIGHT HAND 


♦ 2»®A3<J>/A7 ♦ A8 


= X? * WT*X3 
3 WT*X,4 

s AW ♦ WT«? ,*A3( J)/A7 
- WT«X4 
SIDE. 


00 3 

QWO 

01 

0W1 

Q2 

0W2 

03 
0W3 

04 
QW4 
GO 


0. 

= 0 . 
2 0 « 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


0 « 


X2 - (l.-WT)*X5 
a AW - <1 .-WT)*2.«A3(J)/A7 
= -X4M 1 »-WT ) 

= -(l.-WT)*X4 

= <1.-WT)®H1 (2)®PS(J*I) 

= 0. 

TO SOO 
C UPPER BOUNDARY . 

C UPPER 80UNDRY CONDITION. 

310 00 312 L= 1 » LMX 

IF ( J.EO.JYT <L ) ) GO TO 315 
312 CONTINUE 

(Y<J*1 )-Y( J-l ) )/12. 

( (y(JM)-Y(J) )MY(J)-Y(J~1) M/144. 
AM J-2 > “2 


WT»H1 (3)*PS(J*I*1> 


A6 

A7 

JJ 

XI 

XI 


C LEFT HAND SIDE 
atJJm » 

BW ( JJ* 1 ) = 
8 ( JJ*2) = 

BW ( JJ*2 ) * 
C RIGHT HAND 
QO 


s AMJ) * 

= X1/A6 - A5/A6 
(UPPER 

0. 

0. 

WT*X 1 
¥T*Xl 

SIDE (UPPER 0.C.) 
3 0. 


<WT*H2(3) ■ 
- A3(J)/A7 
B.C.) 


U.-WT)*H2 (2) )*A31 (J) 
- RC0N*A32*M22/A6 


315 


OWO s 0. 

Q 1 - -(l.-WT)®Xl 

QWi - - (i.-WT>«Xl 
GO TO 317 
CONTINUE 
A6 


A7 

JJ 

XI 

XI 


(Y(J*1 )-Y(J-2) )/12. 

( (Y(J*1 >-Y(J> )MY(J)-V (J-2) ))/ 144. 
4MJ-21-2 

A4(J> ♦ (WT«H2<3> ♦ < 1 ,-WT) «H2 (2 ) - *A31 ( J) 
- A5/A6 - A3(J)/A7 - RC0N»A32*H22/A6 
(UPPER B.C.) WHEN STEPSIZE CHANGES, 

WT»X1 


= X1/A6 
C LEFT HANO SIDE 
B ( J J* 1 ) - 

BW < JJ* 1 ) = WT»X1 

c RIGHT HANO SIDE (UPPER 
B ( JJ*2 ) 3 0. 

BW(JJ*2) 3 0. 

QO = -(l.-WT)*Xl 

QWO 3 -(l.-WT)«Xl 

Q 1 =0. 

QWI = 0. 

317 CONTINUE 

X3 3 A5°H2 ( 3 ) ♦ ?.°A3(J)/A7 ♦ 
X4 3 AMJ) ♦ (WT«H2<3>* 

X4 3 AS/A6 - A3 ( J ) / A7 - X4/A6 
X5 3 A5*H2 ( 2 ) ♦ 2.«A3(J)/A7 ♦ 


8,C.> WHEN STEP SIZE CHANGES. 


A8 

(1 ,-WT)*H2(2> >*A31 ( J) 
♦ RC0N«A32«H22/A6 
A6 


B ( JJ*3) 3 X? ♦ WT*X3 

BW(JJO) - AW ♦ WT«2 •* A3 ( J) /A7 
02 = X2 - (l.-WT)*X5 

QW2 3 AW - (1 .-WT)«2.*A3(J)/A7 
Q 3 = -X4M1.-WT) 

QW3 3 -U.-WT>«X4 
Q4 s ( W-WT)«H1 (2)*PS(J*I> 

Q4 3 Qt* * U8(3)*WT«X4 

QW4 = -W8(3)*WT«X4 


♦WT*H1 <3)«PS(J*I*1) 


COF ISH;7l 
COFISH. 72 
C0FISH.73 
COF ISH.74 
COFISH, 75 
COF ISH.76 
COFISH. 77 
COFISH. 78 
COFISH. 79 
COFISH. 60 
COFISH. 81 
COF ISH.82 
COF ISH.83 
COF ISH.R4 
COFISH. 05 
COFISH. 86 
COFISH. 87 
COF I SH . 88 
COF ISH.89 
COFISH. 90 
COF ISH.91 
COFISH. 92 
COFISH. 93 
COF ISH.94 
COFISH, 95 
COFISH. 96 
COFISH. 97 
COFISH. 98 
COFISH. 99 
COFISH. 100 
COFISH. 101 
COFISH. 102 
COF I SH ,103 
COFISH. 104 
COFISH, 105 
COFISH. 106 
COFISH. 107 
COF I SH. 1 08 
COFISH. 109 
COFISH. 110 
COFISH. Ill 
COFISH. 112 
COFISH. 113 
COFISH, H4 
COFISH. 115 
COFISH. 116 
COF ISH.117 
COF ISH.l 18 
COF ISH.119 
COFISH. 120 
COF ISH.121 
COFISH, 122 
COF ISH.l 2.3 
COFISH. 124 
COFISH. 125 
COFISH. 126 
COFISH. 127 
COFISH. 128 
COF 1 SH. 1 29 
COFISH. 130 
COFISH. 131 
COFISH. 132 
COFISH. 133 
COFISH. 134 
COFISH. 135 
COFISH. 136 
COFISH. 137 
COFISH. 138 
COFISH. 139 
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c 


c 


c 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


320 DO 400 L=1*LMX 

IF( J.EQ.JYT (L> ) GO TO 420 . 

400 CONTINUE 

A 6 = <Y<J*1 >-YtJ-l) >/12* 

A 7 = ((Y(J*I)»YfJ))*IYIJ)-Y(J-J)))/lH. 

JJ = 4° (J-2) -2 

XI = AMJ) ♦ {WT«H2<3> * <I.-WT)»H2(2) >*A31 (J) 

Xl = X1/A6 - A5/A6 - A3U1/A7 - PCON« A32*H22/A6 


8 ( J J* 1 > a 0 . 
BW(JJ*1> * 0. 

8 ( J J*2 ) a WT*Xl 
8W ( JJ*2 ) = WT*X! 


R.H.S. 


00 = O. 1 
QWO = 0 . 

01 = -U.-WT)«X1 
owl “ - (l.-WT>*Xl 
GO TO 450 


420 A6 
A7 
JJ 
XI 
XI 


= <Y<J*1>- Y ( J-2 > ) /1 2 • 

= <<Y(J*1>-Y<J))*<Y<J>-Y(J-2>)>/144. 

= 4«<J-2>-2 

= A4(J> ♦ (WT»M2(3) ♦ < l.-WT)*H2(2> )*»A31(J> 
- XI/A6 - A5/A6 - A3 ( J) XA7 - RCON® A32*H22/A6 


C l.H.S. 

8IJJ*1! = WT«X1 
8W < JJ* 1 ) = WT*X1 
0 ( JJ*2) = 0. 

0WIJJ*2> - 0. 

C R.H.S* 

00 =-<l.-WT)*Xl 
QWO = -U«-WT)*X1 

01 = 0 . 

owl = o. 

450 CONTINUE 

X3 = A5° H2 (3) ♦ 2.*A3(J>/A7 ♦ A8 

X4 = AMJ) ♦ { WT *H2 ( 3 > ♦ n.-WT)*H2(2))*A31(J» 

X4 = A5/A6 - A3(J)/A7 - X4/A6 ♦ RCON*A32*H22/A6 
X5 = A5«H2<2) ♦ 2.«A3(J)/A7 ♦ A8 
C LEFT HAND SIDE. 

8 ( JJ*3) = X? ♦ WT»X3 

8W(JJ*3> = AW ♦ WT*2 ,*A3 < J) /A7 
8(JJ*4> = WT*X4 

0W(JJ*4> * W7«X4 


C R.H.S. , 

Q2 = X? - <1.-WT)«X5 

QW2 = AW - <1.“WT)°2.°A3{J)/A7 

03 = -X4M1.-WT) 

QW3 = -<1.-WT>*X4 

04 s (],-hT)oH1<2>*PS<J«I) ♦ WT«H1 <3>*PS( JO) 


QW4 = 0. 

500 CONTINUE 

IF (J-2) 510*510*520 
510 OR = 0. 

ORW =0. 

GO TO 530 

520 OR = Q0 B U(J-2*2) 

QRW = QW0*W (J-2* 2 ) 

530 CONTINUE 

G(J-l) = OR ♦ Q1*U(J-1*2) ♦ G2«U(J*2) 

GW(J-l) = QRw * 0W1*W(J-1.2) * 0W2*W(J«2) * 
900 CONTINUE 
RETURN 
END 


♦ Q3»U(J*l*2> - Q4 
QW3®W ( J*l *2) ♦ QW4 


COFISH, 140 
COFISH. 141 
COFISH. 142 
COFISH. 143 
COF ISH.144 
COFISH, 145 
COFISH. 146 
COFISH. 147 
COF ISH.I48 
COFISH. 149 
COFISH. 150 
COFISH. 151 
COF ISH.152 
COF ISH.153 
COFISH, 154 
COFISH. 155 
COFISH, 156 
COFISH, 157 
COFISH. 158 
COFISH. 159 
COFISH. 160 
COFISH. 161 
COFISH. 162 
COFISH. 163 
COFISH. 164 
COFISH. 165 
C0FISH.166 
COF ISM. 167 
C0FISN.168 
COFISH. 169 
COFISH. 170 
COF I SH. 171 
COFISH. 172 
COFISH. 173 
COFISH. 174 
COFISH. 175 
COFISH. 176 
COF ISH.177 
COFISH. 178 
COFISH. 179 
COF ISH, 180 
COFISH. 181 
COFISH. 182 
COFISH. 183 
COF ISH. 184 
COFISH. 185 
COFISH. 186 
COFISH. 187 
COF ISH. 188 
COF ISH. 189 
COFISH. 190 
COFISH. 191 
COF 1 SH . 1 92 
COFISH. 193 
COFISH. 194 
COFISH. 195 
COFISH. 196 
COFISH, 197 
COF ISH. 198 
COFISH. 199 
COFISH. 200 
COFISH. 201 
COFISH, 202 
COFISH. 203 
COF ISH. 204 
COF ISH. 205 
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REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 

SUBROUTINE DATAIN (XSTART) . 

COMMON/ SCRAT / ALFSI200) *CBETA(20Q> * Y < 1 00 ) *JY ( 25 ) * JYT ( 25) * DY (25 

1 XX (25 > * YPL (]00)*YO(100> *CF (200) *YDOU 00) »U ( 100*3) *UT (100) * V ( 1 00 

2 GAM I (100) ♦GaMF ( 100) *0(200) *US 1 1 0 0 ) *YY(100) tUR ( 1 00 > *UUR (100)* 

3 UP ( 1 00 ) * W ( 100 » 3) » B (4 00 ) *9W (400 ) * YYOEL ( 100) *GNUT ( 1 00 * 3 ) ♦ DU ( 200 > • 
A UTABLEUOO) . OUDY (10 0*3) *P5(100*3> *SP (100*3) * DUMMY (200) * 

5 DXD(20*30) *PPC (20 ♦ 30 > *UUC.< 20*30) *UEDGE (100> *WP U 00) *XPG(100)* 

6 UPG (IOO)*WC(1OO).BETA<1OO)*RTA0(5O>*G(99>*GW(99)*A3(1OO)*A31(1O 

7 » A4 (100) * OUNCE (45 2 ) 

COMMON /XlN/ X IN ( 1 00) *Z IN < 100) *CP IN ( 100 > *SU ( 100 ) 

COMMON /S ANGLE/ 5ANGLE 

COMMON/ GR 1 0/YCP ( 20 ) * CP < 20 ? 30 ) t YG AP 

0 1 MENS I ON X ( 3 ) * UP < 3 ) 

COMMON/SZ 1 / JMX *L MX ,NP*UTS » ITRMX * WT *KWAL*DX » U8IN 
C0MH0N/SZ3/X *U8 

COMMON/ SZ4 / UTAU,UO*DELS*THETA,H,DELTA,CF2,XMX,GNU 
DIMENSION CF 2 ( 3 ) 

COMMON /SZ7/KRP2 
COMMON/SZTBL/XSW*HSV 
common/ ouax / 0U8X 
COMMON /DX ICR/OXMAX 

COHMON/TQTQ/CONS* gnegk *kgnq 
C0MM0N/PLU9/ NCPX *NCPY*KCP* YOELP 
COMMON/ CURVl / R(3) t 

COMMON/ST AT /° HR EF*UREF 

common/pntop/kkz 

COMMON/ I TR/ ITR* I7RMAX 
COMMON/NPT /N°T 
COHMON/XTB/XTB(30) 

COHMON/PARAM/ MACH* ALPH A *REF A * MAT IN»REFC*UINF 
COMMON/NGR ID/NGR10 
COMMON/ NST/NST *HC»NRU 
DIMENSION R I N ( 50 ) 

COMMON/XTRIP/KCOOE»TPIP 
COMMON/SEG/ NCMPT *NFL AP »NFP * NC ( 66 > 

COHMON/CURVES/ RC(30*2) 

NF = NFL AP-NFP* 1 
IF(NF.GT.l) GO TO 20 
REWIND 11 
KGNQ = 1 
GO TO 21 

20 KGNQ - 3 

21 CONTINUE 
UTS = 1 . 

WT = .55 
KWAL = 1 
NP = 4 
CONS st .02 

XMX a (SU(NPT) - SUU))*REfC 
XSW * XMX 
U8IN a UINF 
KRP2 = 1 

IF(ITR.GT.l) GO TO 10 
READ ( 5 * 1 ) DX,DXMAX*Z*BLTRIP 
0LTRIP * 8LTRIP«REFC 
IF (BLTRIP.LT, TRIP) TRIP = BLTRIP 

0 CONTINUE 
1TRMX = 2 
UREF a U0IN 
PHREF a 0. 

IF (KWAL.NE.1 ) GC TO 350 
IF ( ITR.GT.l ) GO TO 11 
DO 22 I=1*NRU 

R1N(I) = A0S (RC (I*NF)*REFC) 

2 CONTINUE 

WRITE (11 ) DX*DXHAX*Z*BLTRIP*NRU* (RIN(I) *!«1 »NRU) 

GO TO 12 

1 CONTINUE 

READd l) DX,DXMAX,Z*BLTRIP*NRU9<RIN(I>* W*NRU> 


OAT AIN. 2 
) *DATAIN.3 
) *DAT A IN. 4 
OAT A IN. 5 
0ATAIN.6 
OATAIN.7 
DAT AIN, 8 
010ATAIN.9 
DATAIN. 10 
DATA1N.11 
OA TAIN. 12 
DATAIN. 13 
DATAIN, 14 
0ATAIN.15 
DATAIN, 16 
DATA IN. 17 
DATAIN. 18 
OA TAIN. 19 
DATAIN. 20 
DATAIN. 21 
OAT A IN.22 
DATAIN. 23 
0ATAIN.24 
0ATAIN.25 
OA TAIN. 26 
DAT AIN. 27 
DATAIN. 28 
0ATAIN.29 
DATAIN. 30 
DATAIN. 31 
DATA IN. 32 
DATAIN, 33 
OAT A I N« 34 
DATAIN. 35 
DATAIN, 36 
OATAIN.37 
0ATAIN.38 
OAT A IN ■ 39 
DATAIN. 40 
0ATAIN.41 
0ATAIN.42 
0ATAIN.43 
DATAIN. 44, 
DATAIN. 45 
0ATAIN.46 
DATAIN, 47 
DATAIN, 48 
DATAIN. 49 
DATAIN. 50 
DATAIN. 51 
DATAIN. 52 
DATAIN. S3 
DATAIN. 54. 
DATAIN. 55 
0ATAIN.56 
DATAIN. 57 
OATA IN. 58 
DATAIN .59 
DATAIN. 60 
DATAIN. 61 
DATAIN. 62 
DATAIN. 63 
OAT A IN, 64 
DATAIN. 65 
DATAIN. 66 
DATAIN. 67 
DATAIN. 68 
DATAIN. 69 
OATAIN.70 
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12 CONTINUE 

KKZ a INT(Z) 

N = NPT-NRU 
I F ( N ) 2*3*6 

2 NN = ABS <N) 

GO TO 4 

3 NN = 0 

A 00 5 I =1 *NPT 

RT AB < 1 ) = R IN 1 1 *NN) 

5 CONTINUE 
GO TO 9 

6 DO 7 1 =l*N 
RTABUl = RINU) 

7 CONTINUE 
NN - ■ N* 1 

00 8 I =NN.NPT 
RTAB(I) a RlN<I-NN*l> 

8 CONTINUE 

9 CONTINUE 
350 CONTINUE 

KCP = 1 
NCPX = NGRIO 
NCPY a 20 
KCOOE = 1 

IF (KCP #GT ♦ 1 ) GO TO 450 
YOELP * YCP < 20 ) 

CALCULATE U FROM C=>. 

00 410 I=1»NCPX 
00 410 J-l *NCPY 

UUCU.l) a SORT ( I • - CPU. in * U8IN 
410 CONTINUE 

DO 420 I=1«NCPX 
XTB(I) = XPG(I*NST-1) 

420 CONTINUE 

CALL OUOS<XT0*UUC.NCPX*NCPY.DXO) 

DO 430 1 = 1. NCPX 
00 430 J=1*NCPY 

PPC(J.I) = * UUC(J,I>«0XDU,I)M2. 
430 CONTINUE 
450 CONTINUE 
RETURN 

1 FORMAT I 7E10.3) 

END 


OATAIN. 71 
OA TAIN. 72 
DATAIN.73 
DATAIN.74 
DAT A IN , 75 
0ATAIN.76 
DAT AIN. 77 
0 A TAIN. 78 
DATAIN.79 
DAT A IN .80 
OAT A I N * 8 1 
0ATAIN.82 
OATAIN. 83 
OAT AIN. 84 
0ATAIN.85 
DAT A IN. 86 
DATAIN.87 
DATA IN. 88 
DAT AIN. 89 
OATAIN.90 
DATA1N.91 
DAT AIN. 92 
OAT A IN. 93 
DAT A IN * 94 
DATAIN.9S 
DAT A I N. 96 
DAT A IN..97 
DAT AIN. 98 
0ATAIN.99 
OATAIN.100 
OATAIN. 101 
0ATAIN.102 
DAT A IN. 1 03 
DAT AIN* 104 
DATAIN.105 
OATAIN. 106 
DAT A IN. 107 
OATAIN. 108 
OATAIN. 109 
OATAlN.llO 
OATAIN. 11 1 
OATAIN. 112 
OATAIN. 113 


SUBROUTINE OFR I V < JMX .CELT A* Y .OUOY »U> 

DIMENSION Y <1 ) .DUDYU00.3) *U<100.3> 

C0MM0N/SZ1/JJ*LMX 

DO 70 J=2»JMX 

IF ( Y { J) -DELT A ) 81,81*82 

81 CONTINUE 

DUDY ( J.3) = OUY <U*3 * J» Y > 

GO TO 83 

82 DUOY (J.3) « 0* 

83 CONTINUE 
•70 CONTINUE 

RETURN 

END 


DERIV.2 

DERIV.3 

0ERIV.4 

DERIV.5 

DERIV.6 

0ERIV.7 

0ERIV.8 

DER IV. 9 

DER1V.10 

DER IV. I l 

DER IV • 1 2 

DERIV.13 

DEPIV.14 


SUBROUTINE CHIOS (XF *S IGF .NT .NY.SIGMF) 

DIMENSION X F f 5 0 ) ♦ SIGF<20»20)» SIGMF(20.20» 

DO 200 J= 1 *NY 
00 100 1=1. NT 

IFU.GT.l) GO TO 20 t 

C FIRST POINT. USE FORWARO DIFFERENCES (LAGRANGE). 
OXI = XF < I ♦ 1 ) ~XF (I) 

0X2 = XF I I * 2 > -XF (1*1) 

OX = 0X1 ♦ DX2 

DSl = SlGF ( J ♦ I + 1 ) - SIGFU.D 


DUOS. 2 
DUOS. 3 
OUDS. 4 
DUOS. 5 
DUOS. 6 
DUOS. 7 
DUOS « 0 
OUDS. 9 
OUDS. 10 
DUDS.U 


188 



20 

ANY 


DS2 =S IGF(J. I *2) - SIGF < J* I ♦ 1 > 

A = DSl* (0X2/0X1 *2. > 

8 = DS2° <CX 1/0X2 ) 

SIGMF<J«I> = (A-BJ/OX SEMODUCIBILITY OF THE 

ifu.eq.nt) go tc ao ORIGINAL PAGE IS POOR 

OTHER POINT. USE CENTRAL DIFFERENCES. 


XF(I> -XF(I-l) 

XF(IM) - XFII) 

DX 1 ♦ 0X2 

SIGFU.I) - SIGF<J*I-U 
StGFU.IM) “ S IGF < J* J ) 
DS2°DXl/dx2 
D51 »0X2/DX1 
a <A*B)/DX 


0X1 

DX2 - 

DX 

051 

052 = 

A = 

B - 

s ighf < j* i ) 

GO TO 100 
CONTINUE 

USE BACKWARD DIFFERENCES. 

= XFC1-D-XFM-2) 

= xf ( i ) -xFU-n 
= Ox 1 *CX2 

= SIGF < J. 1-1 ) - SIGFtJ.I-2) 
= SlGF(J.I) - SIGFIJ.I-D 
= DS2* (CX1/0X2 * 2.) 

= DSl® (0X2/0X1 ) 

= <A-B)/DX 


AO 

LAST POINT 
0X1 
0X2 

OX = 

0S1 = 

DS2 = 

A - 

8 

SIGMF(J.I) 
100 CONTINUE 
200 CONTINUE 
RETURN 
ENO 


OUDS.I2 
DUOS. 13 
0U0S.1A 
DUOS. 1*5 
DUDS. 16 
0U0S.17 
DUOS. 18 
DUDS. 19 
0UDS.20 
DUOS .2 l 
DUOS. 22 
DUOS. 23 
DUCS.2A 
0U0S.2S 
DUOS. 26 
DUOS. 27 
DUOS. 28 
DUOS. 29 
DUDS .30 
0U0S.31 
DUDS. 32 
DUOS. 33 
0UCS.3A 
DUOS. 35 
DUDS. 36 
DUOS. 37 
OUDS. 38 
DUDS. 39 
OUDS. AO 
DUOS .A 1 


FUNCTION DUY (U. I * J*Y) 

COMMON/ SCRAT / ALF S ( 20 0 ) * CBET A { 2 0 0 ) *D ( 1 0 0 ) » JY ( 25 ) * JY T ( 25 ) *0Y ( 25 ) 

1 XX (25) ♦ YPL < 1 0 0 > . YD ( 1 0 0 ) tCF (2001 » YOD ( 1 00 ) .CUM ( 300 ) * UT (100) » V (1 00 ) 

2 GAM I U 00 > » GAMF M 00 ) *H(200) .US ( 1 00) »YY ( 1 00) *UR <100 ) *UUR U 00) ♦ 

‘ 3 UP (100) *W<l0O.3>*B(AOO) .BW(AOO) .YYDELUOO) »GNUT U 0 0 1 3 ) ♦ DU < 200 ) 9 
A UT ABLE (100) .DUOY U00*3>*PSUO0.3>*SPUO0*3)*THETA(2O0>* 

5 0X0(20*30) *RPC (2 0 * 30) *UUC (20 *30) *UEOGE (1 00 ) *WP ( 1 00 ) *XPGUOO ) ♦ 

6 UPG(100)*WC(100)*8ETA(100)*RTAB(50)*G(99)*GW(99)*A3<100)*A31(100 

7*AA (100) *DUMMY(A52) 

0 I HENS I ON Y(100) *U (100*3) 

COMMON/SZ1/ JMX.LMX *NP*U7S. ITRMX.WT *KWAL * OX .U8I N 
IF(J.EO.l) GO TO 300 
IF(U.EQ.JMX) GO TO A00 
DO 100 L“ 1 *LMX 
KM = JYT (L > 

IF (J.EQ.KM) GO 70 200 
100 CONTINUE 

OY = Y ( JU ) -Y ( J-l ) 

DUY = (U(J*l.n-U(J-ltI))/DY 
RETURN 

200 CONTINUE 

DY = Y ( J-*l )-Y< J-2) 

DUY = (U(J*1*I>-U(J-2*I) )/OY 
RETURN 

300 CONTINUE 

DY = Y ( J* 1 ) “Y < J) 

DUY - (U < J*1 * I ) -U ( J* I ) )/OY 
RETURN 

A 0 0 CONTINUE 

OY = Y ( J) -Y(J-l) 

DUY = (U(J*I)“U(J-lfI))/DY 

return 

ENO 


DUY. 2 
DUY. 3 
•DUY .A 
*OUY .5 
0UY.6 
DUY. 7 
DUY .8 
DUY .9 
> OU Y .10 
OUY.ll 
DUY. 12 
DUY. 13 
DUY » 1 A 
DUY. 15 
DUY .16 
0UY.17 
DUY. 18 
DUY. 19 
0UY.20 
0UY.21- 
DUY.22 
DUY. 23 
0UY.2A 
DUY. 25 
OUY.26 
DUY. 27 
DUY o 28 
DUY. 29 
DUY. 30 
DUY. 31 
0UY.32 
DUY. 33 
DUY.3A 
DUY. 35 
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SUBROUTINE EOOY(C-NUT*I*Y *DUOY *P) 

ROUTINE TO CALCULATE THE EDDY VISCOSITY PROFILE _ v .„. 

COMMON/ SCRAT / ALPS (200) *CBETA<200 > *0< 100) *JY (25) *JYT (25) *OY (25) 

1 XX (25) » YPL < 1 00 ) *YD (100) *CF <200 > •YOOUOO) *U (100*3) *UT ( 1 00) * V ( 100) 
GAM I (100) *GAHF(1 00 > *T (200) *US< 1 0 0 > * YY ( 1 00 ) *UR ( 1 00) *UUR( 100 ) * 

UP UOO) *W(lOO«3> *B(400> *BW(400> .YYOEL (100) *DUMM ( 100*3> »QU(200)* 
UTABLE U 00 ) , DUUN (1OO*3>*PS(1O0*3)*SP(IOO*3> t DUMMY (200) * 
0X0(20*30) »PPC (20*30) *UUC (20 *30 ) *UEOGE (100) *WP UOO ) *XPG(IOO)* 

UPGUOO)*WC(1OO)*BETA(1OO)*«TA0(5O>*G(99)*OW<9‘))*A3(1OO).A31UOO 

7 « A A (100) » DUNCE (452) 

COMMON/ XST ART / XST ART 

DIMENSION DUnYUOQ.3)* Y < 1 00 > *GNUT ( 1 0 0 * 3 > 

COHMON/SZ1/ JMX*LMX 
COMMON/ SZ3 / X ( 3 ) *U8 ( 3 ) 

COMMON/ SZ4 / UTAU*U0,0ELS*THETA*H,DELTA,CF2*XMX*GNU 
DIMENSION CF?(3)*P(3) 

COMMON/SZTBL/XSW*HSV 

COMMON/SHAPE/ JSP*CNNS»UMX*UMIN*JMN,MCASE 

COMMON/ DU8X / DU8X 

COMMON/TOTO/CONS*GNEQK*KGNQ 

common/prank/key 
COMMON/ CURV1 / R(3> 

COMMON/XTRIP/KCODE»TRIP 
COMMON/KSEP/KSEP 
GNUTUfl) =* 0 • 

JOY = 1 
KSEP = 0 
RAD = 1. 

AA = 312, 

KH = 1 

DO 7 J = 2 ♦ JMX 
IF (U { J*3) )8*R»7 

7 CONTINUE 
GO TO 9 

8 CALL PRINT (2) 

KSEP = l 
RETURN 

9 CONTINUE 

IF (Xll)-XSTART) 1*1*2 

1 KAP =1 

XL AST = 0. 

KFLAT = 1 
KCORE = 1 

2 CONTINUE 
GNUTA s o. 

IF (X { I ) -XSW > 10*20*20 
CONTINUE 

CALL HTYBAR <H*YB*2> , 

CALL HTSIG(H,SIGD*2> 

GO TO 30 
CONTINUE 

CALL HTYBRE (H*YB*2) 

CALL HTSIR(M,SIG0*2> 

CONTINUE 

SIGMA = SIGD*DELS/12. 

OX = X(I)-XII-l) - 

CGT = 14,5 

GNUEQ = (UD«SIGMA/CGT) 

IF (MCASE.GE .2) GNUEQ = 2.*GNUEQ 
IF(KAP.GE.2) GO TO 6 
IF (KEY »EQ ,2) GO TO 5 
GO TO 6 

GNULT = GNULTB 

KAP = 2 

CONTINUE 

IF (X(I)-XSTART) 40*40*35 
CONTINUE 

GO TO (36*42*42) *MCASE 
CONTINUE 


10 


20 


30 


35 


36 


ED0Y.2 
EDDY. 3 
♦ECDY.4 
♦EOOY ,5 
EDOY ,6 
EOOY. 7 
EDDY. 8 
EDDY. 9 
) £00 Y • 1 0 
EOOY , 1 l 
EOOY. 12 
EDOY. 13 
EDOY. 14 
EDDY. 15 
EDDY. 16 
EOOY. 17 
EDDY. 18 
EDOY. 19 
EDDY. 20 
EDDY. 21 
EDDY. 22 
EDDY. 23 
EDDY. 24 
EDOY. 25 
EDOY. 26 
EDDY. 27 
EDOY. 28 
EOOY. 29 
EDDY. 30 
EOOY. 31 
EOOY. 32 
EDOY. 33 
EDDY. 34 
EDOY. 35 
EDDY. 36 
EDOY. 37 
EOOY. 38 
EOOY. 39 
EDOY. 40 
EOOY. 41 
EDOY, 42 
EDDY. 43 
EOOY. 44 
EOOY. 45 
EDDY. 46 
EDOY. 47 
EDOY, 48 
EC0Y.49 
EDOY. 50 
EOOY. 51 
EDOY. 52 
EDDY. 53 
EDDY. 54. 
EOOY.55 
EOOY. 56 
EDOY. 57 
EDOY, 58 
EOOY, 59 
EDDY. 60 
EDOY .61 
EDDY. 62 
EOOY. 63 
EDOY. 64 
EDOY. 65 
EODY.66 
EOOY. 67 
EDDY. 68 
EOOY. 69 
EOOY. 70 
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c 


40 

41 

42 
45 


38 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


IF(CNNS.GT.1«) GO TO 40 , T w^c-t e * ma in 

GNUT2 = (GNULT ♦CCNS°DX« (GNUEQ-GNULT ) /DELS) *RAO 

GO TO 45 
CONTINUE 

GO TO (42*41*42). KGNQ 
GNUT2 = GNEOK 
GO TO 45 
GNUT2 a GNUEO 
GNULT = GNUT? 
fl = l./(l .4l421»SIGD> 

GO TO <49*43.38). HCASE 
CONTINUE 
UOC= .76*08(3) 

SIGMA8 = • 1 27 B 0ELT A/12 * 

GNUEOB = U0C*S1GMAH/CGT*.6.5 
YBB = .95°0ELTA/D£LS 
51GB = 1 2 .*S I GMAB/DELS 

GO TO 39 
43 CONTINUE 

UDDN = U(JSP*3)**U(JMX*3) 

URN a U< JMX*3>/U0DN 
CALL UDUNY9 <URN*YB8*2) 

YB8 = YBB*X < I ) /DELS * V (JSP ) /DELS . 

IF(R<3> .LE.l ,0E*6) YBB *Y8B ♦ 3.«Y <JSP) /OELS 
CALL UOUNSG <URN.SIGB*2> 

SIGMA8 = SIGH*X ( I )/l2» 

GNUEOB = <UOON*SIGMAB/CGT) *2.3 
39 CONTINUE 

IF (X ( I ) -XSTART) 47*47*46 

46 GNUT4 N =^GNULTB * 10.*CONS*OX*<GNUE9B-GNULTB)/DELTA)»RAO 


GO TO 48 

47 CONTINUE 

GO TO (51*51*52)* KGNQ 

51 GNUT4 = GNUEOB 
GO TO 48 

52 GNUT4 = GNEQK 

48 GNULTB a GNUT4 
GNEOK = GNUT4 

82 = 1./<1 ,41421*SIG0) 

GO TO (49*37*49)* HCASE 
37 CONTINUE 

R2 a02*DELS/X C I ) 

49 CONTINUE 

00 300 J=2*JMX 
GO TO (50*70) » KM 

50 CONTINUE 

AY a UT AU**2 

AZ = -PS(J»3) ft Y (J)/12. 

IF (AZ*GT .AY*. 5) AZ = .5*AY 
UTTT = SQRT(AY-AZ) 

A = AA«GNU/UTTT 

GNT1 =(.001312)*U*-EXP(-Y<J)/A)>*»2 
GNT l = GNT1 0 ( Y < J) **2) * ABS (OUOY ( J* I ) ) *12* 


70 CONTINUE 

YD a YYDEL ( J) * 

90 CONTINUE 

ARG = 8MYO-Y0) 

GO TO (71*72.72)* HCASE 
72 CONTINUE 

ARG2 = B2* ( YO-YBB ) 

71 CONTINUE 

IF (ABS(ARG) .fiT.27.) GO TO 91 
GAMMA a ,5*(1.-CHEBERF (ARG) ) 
GO TO 93 

91 GAMMA a 1. 

93 CONTINUE 

GO TO (96*82.82)* MCASE 
82 CONTINUE 


EOOY.71 
EOOY.72 
ECOY.73 
E00Y.74 
EDDY. 75 
EDO Y .76 
E00Y.77 
EDDY. 70 
E00Y.79 
EDDY *80 
EDDY. 81 
E00Y.82 
EDDY. 83 
EO0Y.84 
EDDY. 85 
EDDY. 86 
EDDY. 87 
EDDY. 08 
EDDY. 89 
ED0Y.90 
E00Y.91 
E00Y.92 
E00Y.93 
EDDY .94 
EDDY. 95 
ED0Y.96 
E00Y.97 
EDDY. 98 
EQ0Y.99 
E0DY.100 
EDDY. 101 
ED0Y.102 
EDDY #103 
EDDY, 104 
EDDY. 105 
EDDY. 106 
E00Y.107 
EODY.108 
EDDY. 109 
EDDY. 110 
EDDY. Ill 
EDDY. 112 
EDDY. 113 
- EDDY, 114 
EDDY. 115 
EODY.i 16 
ED0Y.117 
E00Y.1 18 
ED0Y.U9 
EDOY. 120 
EDDY. 121 
EDDY. 122 
EDOY, 123 
EDDY, 124 
EDOY. 125 
E00Y.126 
E0DY.127 
EDDY. 128 
EDOY, 129 
EOOY.130 
EDOY. 131 
ECOY .132 
EDOY, 133 
EDDY. 134 
EDOY. 135 
EDOY. 136 
E00Y.137 
EDDY. 138 
EODY.139 
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IF (A6S(ARG2) .GT.27.) GO TO 94 
GAMMA 2 = .5»fl.-CHE8ERF<ARG2>> 
GO TO 96 
94 GAMMA2 a 1. 

96 CONTINUE 
98 CONTINUE 

GNUTA * GNUT4 
GO TO (83*04*84)* MCASE 
84 CONTINUE 

GNUTA = GNUT? 

GNUT8 = GNUT4 
GO TO 85 
83 CONTINUE 

GNUTA a GNUT? *GAMMA 


85 CONTINUE 
95 CONTINUE 

GO TO (97*100) * KH 
97 CONTINUE 

PI a 3,14159265 

010 a .5“ (GNUTB-GNUTA) 

GO TO (101*102*103)* MCASE 

102 CONTINUE 
YGNA = Y ( J) 

YDNM a Y(JSP)“ YGNA 
GO TO 101 

103 CONTINUE 
YGNA = Y ( J) 

YDNM a Y(JMN) - YGNA • 

101 CONTINUE 

IF (GNUTA-GNT1 ) 100*200*200 


CONTINUE 

GO TO (504*500*502)* MCASE 
CONTINUE 

THHTA = -PIMY (JSP)-Y(J) >/Y0NM 
GO TO 504 
CONTINUE 

JHHTA = “Pi* <Y ( JMN) -Y ( J> ) /YONM 

continue 

GO TO (120*112*111)* MCASE 
CON7 INUE 

IF(Y (J>-Y (J$P> > 120*120*111 
IF (Y ( J) -Y ( JMN) ) 130*130*140 
IF <Y ( J)-Y <JSP> ) 131*140*140 

GNUT (J* I) = GNUTA 

SllIS.!, 0 . GnUTA ♦ (GNUTB-GNUTA) * (Y(j)-*50 # Y (JSP) >/< *75 # Y (JSP) ) 
GNUT ( J* l ) = GNUTA * ( GNUTB-GNUTA )*< Y ( J ) -YGN A ) /YONM 
GO TO 150 
GNUT < J*I) 

GO TO 150 
C-NUT (J* I) 

CONTINUE 
KH = 2 
GO TO 300 
GNUTtJ* I ) =GNT 1 
CONTINUE 

IF(KCODE.LE.n) GO TO 620 
GO TO (605*613) *KCORE 

605 CONTINUE 

IF (X(3) .GE.TOIP) GO TO 606 
GO TO 607 

606 CONTINUE 
KCORE * 2 
GO TO 613 

607 CONTINUE 

GO TO (610*610*600) oMCASE 
600 CONTINUE 

XLAST a X<3) 

DO 601 J=2 * JSP 


100 

500 

502 

504 

110 

111 

112 

120 

C 130 
131 

130 

• 140 

150 


200 

300 


a (GNUTA * 010) * BIB*COS(THHTA) 
= GNUTe*GAMMA2 


EOOY.140 
EDOY. 141 
EDDY. 142 
EC0Y.143 
E00Y.144 
E00Y.145 
E00Y.146 
E0DY.147 
EDDY. 140 
EOOY *149 
EOOY.150 
EOOY. 151 
EDDY. 152 
EDDY. 153 
EDOY . 154 
EOOY. 155 
E0DY.156 
EOOY. 157 
EOOY.150 
EDDY. 159 
EOOY. 160 
EDDY. 161 
EOOY. 162 
EOOY. 163 
EDOY. 164 
EOOY. 165 
EOOY. 166 
EDDY. 167 
EOOY. 160 
EOOY. 169 
EDDY. 170 
EOOY. 171 
EDDY. 172 
EDOY. 173 
EDDY. 174 
EOOY .175 
EOOY. 176 
EDDY. 177 
EOOY. 178 
EDOY. 179 
F.DDY.180 
E0DY.181 
EDOY. 102 
- EDDY. 183 
EDDY. 184 
EOOY » 1 85 ■ 
EOOY. 186 
EOOY. 187 
EOOY. 108 
EOOY. 189 
EOOY. 190 
EOOY. 191 
EOOY. 192 
EOOY. 193 
EDDY. 194 
EOOY. 195 
EDOY. 196 
EOOY. 197 
EDDY. 198 
EOOY. 199 
EOOY. 200 
EOOY. 201 
EOOY. 202 
EDDY. 203 
EOOY. 204 
EDDY. 205 
EODY.206 
EOOY. 207 
EDOY. 200 
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GNUHJ*I) * 0* 

601 CONTINUE 
613 CONTINUE 

J MM = JSPM 

DO 603 J - JMMtJMN 

IF(U(J*1) .LE»UMX*.95) GO TO 604 

603 CONTINUE 

604 CONTINUE 
JDY = J 

IF ( JDY.LE . < JSP*2) )KFLAT = 2 
1F(KFLAT.GE.?> GO TO 610 
C IF < JDY.EG.JMN) GO TO 610 

IF(KCORE.LE.l) GO TO 617 
FAD = .5«GNUTA 
KSP a JSP-4 
00 615 J =KSP*JSP 

THHl a PI* (Y { JSP)~Y ( J) )/ <Y < J$P)-Y <KSP) ) 

GNUT ( J» I ) = FAD - FAO*COS<THHl) 

615 CONTINUE 
617 CONTINUE 

JDY1 = JDY-1 
00 614 J = JmM*JOY1 
GNUT < J# I ) =0. 

614 CONTINUE 

JMN2 = JOY ♦ 4 

DAO = . 5*GNUT ( JMN2 * I > 

00 616 J = JnY*JMN2 

THH2 =■ (-P I«< Y < JWN2) -Y ( J> > )/ <Y( JMN2)-Y< JOY) > 
GNUT(J.I) = OAD ♦ 0AD*CO5 t THH2) 

616 CONTINUE 

IF (KC0RE.EG.2) GO TO 610 
GO TO 620 

610 CONTINUE 

if (X( 3 ) *lt .trip) go to 620 

GO TO <620.620 *61 1 > *MCASE 

611 CONTINUE 

XF AST = XL AST ♦ .1 
IF(X(3) .GE.XFAST) GO TO 621 
SAD = -5.«PI<MXFAST-X (3) ) 

DO 612 J = 2 ♦ JSP 
GAO a .5*GNUT ( J* I ) 

GNUT(J»I) a GAD * GAD*C0S(5A0) 

612 CONTINUE 
GO TO 620 

621 CONTINUE 

IF (KFLAT.GE.2) KCOOE * 0 
620 CONTINUE 
RETURN 
400 STOP 
ENO 


EDDY. 209 
E00Y.210 
E00Y.211 
EOOY.212 
EOOY.213 
EOOY.214 
EDDY. 215 
EDDY. 216 
E0DY.217 
E00Y.218 
E00Y.219 
EDDY. 220 
EODY » 22 1 
E00Y.222 
EDDY. 223 
EDDY. 224 
EDDY. 225 
EODY. 226 
EDDY. 227 
E00Y.228 
EODY. 229 
EDDY. 230 
EDDY. 231 
ED0Y.232 
EDDY. 233 
EDDY. 234 
EODY. 235 
ED0Y.236 
EDDY. 237 
EODY, 230 
EDDY. 239 
EDDY. 240 
EODY. 241 
EDDY. 242 
EDDY. 243 
EDDY. 244 
EODY, 245 
EDDY. 246 
EDDY. 247 
EDDY, 248 
EDDY .249 
EDDY. 250 
EODY. 251 
- EDDY. 252' 
E00Y.253 
EflCY.254 
EDDY. 255 
EDDY. 256 
EODY. 257 
EDDY. 258 


SUBROUTINE EXTRAP ( 1 TRt JMX *U* XtLPR *UP«U8) 
ROUTINE TO LINEARIZE THE MOMENTUM EQUATION 

COMMON/ SCRAT / *LF S < 200 ) ♦ CBF.T A < ?0 0 > * Y (1 0 0 ) 

1 XX(25)*YPL <1 00 >*Y0<1 00 )*CF<200).YOD <1001*0 

2 G AMI ( 100) * G 4MF <100)*H<200)*US<100)*YY<100> 
30MP (100) * W ( 100.3) *B <400 > ♦ BW (4Q 0 ) * YYOEL < 1 00 > 

4 UT ABLE (100) *DUOY (100*3) *PS ( 100 * 3 ) »SP (100.3 

5 0X0(20*30) *P PC (20*30) *UUC(20*30) tUEDGEUOO 

6 UPG (100) *WC(100)*8ETA(100> *RTAB(50) *6(99) * 

7 * A4 ( 1 0 0 ) * DUMMY (452) 

DIMENSION X(3>*U (100*3) *UP U 00) *U0 < 3) 
COMMON/ 0U8X / DU8X 
C0MM0N/W8/W8 (3) 

JMX 1 a JMX- 1 
. JMM = JMX ♦ 3 
JMM1 = JMM - 1 
JMX 2 = JMX * 1 


EXTRAP. 2 
EXTRAP, 3 ‘ 

» JY (25) » JYT(25) *0Y ( 25 ) » EXT RAP .4 
(100*3) *UT(100) *V( 100) *EXTRAP.5 
♦UR(IOO) tUURUOO) , EXTRAP. 6 

*GNUT (100*3)* DU (200)* EXTRAP. 7 

) *THETA<200> * EXTRAP. 8 

) *WP<100> *XPG( 100) « EXTRAP. 9 

GW (99) » A3 ( 1 00 ) *A31 (100) EXTRAP. 10 

EXTRAP. 1 l 
EXTRAP. 12 
EXTRAP. 13 
EXTRAP. 14 
EXTRAP. 15 
EXTRAP. 16 
EXTRAP. 17 
EXTRAP. 18 
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40 


50 


10Q 


150 

200 

210 


220 


300 


UP(JMX) = U8<3> 
WP(JMX) = W8<3) 

DO 40 J - JMX2*JMM1 
UP{J) - U(J*3> 

WP(J> = W ( J * 3 ) 
CONTINUE 

DO 50 J = JHM *100 
UP(J) « U8(3) 

WP(J) = W8 <3 ) 

CONTINUE 

IF (ITR-l) 200*200*100 
DO 150 J= 1 » JMX 1 
UP(J) = . 75 W U ( J* 3 ) * 
WPU) = . 75 °w < J* 3 ) ♦ 
CONTINUE 
RETURN 

GO TO 1210*300)* 

00 220 J-1*UMX1 
UP(J) = UIJ*?) ♦ 

WPTJ) = W(J*2) 
CONTINUE 

upin = o. 

WP(1) = o, 

RETURN 

DXl = X(3)-X<2> 

DX2 =» X<2)-X(l) 


keproducibiutyo^the 

ORIGINAL PAGE IS ROO 


,25*U°(J) 

,25*WP(J) 


LPR 

(0U8X/ 12. 1*1X0) “X (2)) 


00 350 J= 1 * JMX 1 

ou s u< j*2)-u< J* n 

ow = W { J * 2 ) - W (J* 1 ) 

UP(J) = U ( J * 2 ) ♦ 0U*DX1/0X2 
WP < J) * W ( J , 2 ) ♦ 0W»0X1/DX2 
350 CONTINUE 
RETURN 
ENO 


EXTRAP. 19 
EXTRAP. 20 
EXTRAP. 21 
EXTRAP. 22 
EXTRAP. 23 
EXTRAP. 24 
EXTRAP. 25 
EXTRAP. 26 
EXTRAP. 27 
EXTRAP. 28 
EXTRAP. 29 
EXTRAP. 30 
EXTRAP. 31 
EXTRAP. 32 
EXTRAP. 33 
EXTRAP. 34 
EXTRAP. 35 
EXTRAP. 36 
EXTRAP, 37 
EXTRAP. 38 
EXTRAP. 39 
EXTRAP. 40 
EXTRAP. 41 
EXTRAP. 42 
EXTRAP .43 
EXTRAP. 44 
EXTRAP. 45 
EX TRAP. '46 
EXTRAP. 47 
EXTRAP. 48 
EXTRAP. 49 
EXTRAP. 50 
EXTRAP. 51 
EXTRAP, 52 


FUNCTION FF<A> 

EQUIVALENCE (KA*AA) 
A A ~ A 

FF = FLOAT (KA) 

RETURN 

ENO 


FF.2 
FF.3 
FF *4 
FF .5 
FF ,6 
FF .7 
FF *8 


SUBROUTINE HTABLE (H,OEL »NDEG> 

D I HENS ION UDUNT (41 ) *SIGBT (41 ) *YBPT (41 > 

DIMENSION HT ( 78 ) * Y8ARDT<78>* YBAREC<78), YDT(78)» STGOT (78 ) 
DIMENSION SIGRE <78 ) 

DATA (HT(U*I 3 1*7Q)/1. 26*1.28 *1.30*1. 32*1. 34, 1.36 *1.38*1. 40* 
1. 42*1. 44*1*46*1.48*1»50*1. 52*1. 54*1, 56*1. 58* 

1.60*1.62*1. 64 *1.66 *1.68*1. 70*1. 72*1, 74*1. 76* 

1.78*1. 80*1.82*1. 84 *1.86*1. 86*1. 90*1. 92*1. 94* 
1.96 *1.98 *2. 00*2. 02 *2. 04. 2. 06 *2. 08*2. 10*2*12* 

' 2.14,2.16.2.18.2.20*2.22,2.24*2.26,2.28*2.30* 

2. 32*2. 34 *2. 36 *2. 38*2. 40*2. 42*2. 44*2. 46*2. 48* 
2.50*2.52 *2.54,2.56 *2. 50*2. 60*2.62, 2. 64 *2. 66* 
2.68*2.70*2.72,2.74*2.76*2.72*2.80/ 

DATA < YBARDT < T > » I=1*70)/11.8,1O.15*9.*8.2*7.4*6.82,6.36*6.* 

1 5. 7*5*43*5. 23*5.04*4. 86 *4. 71 *4. 59 *4. 49, 4.38* 

2 4.3,4.2*4.13*4.05*3.99,3.91*3.85,3.8,3.74, 

3 3,69, 3. 64, 3. 59*3. 53*3. 49, 3.46*3«41*3. 38*3.33, 

4 3. 29, 3. 26 *3, 22, 3, 2, 3. 18*3. 16, 3. 13*3. 1 *3. 09, 

5 3.07,3.05*3.03,3.01 ,3. *2, 99, 2. 97,2.95 ,2. 93* 

6 2.92,2.91 *2. 9*2*89. 21*2. 88/ 

DATA(YBARECU) ♦ 1 = 1*781/8,5* 7.85*7.3* 6.75*6.3* 5.87*5.5* 

1 5.21*5.* 4.75*4*52*4.37*4.2* 4,07*3.95*3.82* 

2 3. 74*3. 64*3. 57, 3.5* 3.44,3.37,3.31*3.29*3.23* 

3 3.19,3.14*3.1, 3.04*3.* 2.95*2.9* 2.88,2.84* 


HTABLE. 2 
HTA8LE.3 
HTABLE. 4 
HTABLE. 5 
HTABLE. 6 
HTABLE. 7 
HTABLE. 8 
HTABLE. 9 
HTABLE. 10 
HTABLE. 11 
HTABLE. 12 
HTABLE. 13 
HTABLE. 14 
HTABLE. 15 
HTABLE. 16 
HTABLE. 17 
HTABLE. 18 
HTABLE. 19 
HTABLE. 20 
HTABLE. 21 
HTABLE. 22 
HTABLE. 23 
HTABLE. 24 
HTABLE. 25 


194 



4 2.81 ,2.79*2.75,2.71*2.69,2.66*2.63*2.61 *2.59* HTABLE.26 

5 2. SB*2. 56*2. 54*2. 52*2. 5* 2.48*2.46,2,44*2.42* HT ABLE . ?7 

6 2.41*2.4* 2. 39*2. 38*2- 37*2. 36*2. 35*19*2.34/ HTABLE.28 

DATA < YOT ( I > * I=l*78>/1.2* 1.2* 1,2* 1.2* 1.2* 1.2* 1.1* 1.01* HTABLE, 29 

1 .915*. 83* .758*. 696*. 645*. 588, .544*. 503*. 47* .435* H7ABLE.30 

2 . .402*. 372*. 345. .32* . 2 96 * . 277 . . 2 6 1 . . 246 * . 235 * . 222 * HTABLE, 31 

3 .214*. 205*. 199 *.191* .186, .182. .179*. 174*. 171*. 169, HTABLE.32 

4 ' .165, .162* .16, .159*. 158, .157, .156, .155*. 154. 31^.153/ HTABLE. 33 

DATA 1SIG0T ( I ) ♦ 1=1*781/2.8* 2.34*1,94*1.62*1.41*1.25* 1.14*1.05* HTABLE • 34 

1 .99, .93, .885*. 84, . 805 * . 775 * . 75 * . 725 * . 705 ♦ .68 * HT ABLE • 35 

2 .66* .645* *63* .615*. 6* .59* .575*. 565, .555, .545* HTA8LE *36 

3 .535*. 53* .525* .51 B* .5 12* .505 * .5* .495*. 49* .486* HTA6LE*37 

4 .48* ,478 ♦ .475 * .47 , .465.. 46* • 450 * • 455 * .45 * .443* HTABLE.38 

5. 0 44 * ,437».432*.428,.425*.422*.421*.4l9*.41fl*.417* HTABLfr.39 

6 ,415*.4l2*.408*17°.405/ • HT ABLE *40 

DATA (S1GRE < I > * I = 1 ♦ 78 ) /2 .8 » 2.54*2.3* 2. 11 * 1 .93, 1 .78* 1 .65* 1 .53* HTABLE.41 

1 1,43.1.34*1.27,1.21*1.15*1.1 , 1 .06 , 1 . 02 * .98 , .95* HTA8LE.42 

2 .92, .89, .86, .84, .81, .79, . 768 , . 748 , . 725, . 705 * HT ABLE .43 

3 ,69* . 6 7 5 , • 6 5 8 * . 645 « • 6 3 * .62* .605* .595, .585* .575* HTA0LE.44 

4 .567*. 56* .553*. 548, .54, .537*. 53, . 522 , .5 1 8 * .515* HTARLE.45 

5 .508 * .505* *5, .498 * *495 * .492 » .49 , .488* .482 * .48* HT ABLE .46 

6 .478*. 476*. 474*. 472. 16«. 47/ HTABLE.47 

DATA <UDUNT ( I ) * I = 1 * 4 1 ) / .0 * . 1 » .2 ♦ .3 ♦ .4 * . 5 , .6 * . 7 * . 8 * . 9 » l . 0 ♦ 1 . 1 , HTA8LE.48 

1 1.2* 1.3*1. 4.1 .5*1. 6*1. 7*1. 8. 1.9*2. 0*2. 1*2. 2* HT ABLE • 49 

2 2 » 3 » 2 » 4 * 2 . 5 * 2 » 6 , 2 • 7 * 2 • 8 * 2 . 9 * 3 . 0 * 3 » 1 * 3 • 2 * HTABLE.50 

3 3. 3, 3. 4*3. 5*3. 6*3. 7*3. 8*3. 9*4.0/ HTABLE.51 

DATA (SIOBT(l)* 1 = 1 *41 )/. 0224*. 01875, .0175*. 0150*. 01445*. 0136* HT ABLE ..52 

1 .01 31 * .01 28* . 01255* .0123*. 012*. 01 175, HTABLE.53 

2 .01145, .0112**0109* .01 06* ,01 038* .01 . . 00975HT ABLE .54 

3 ,.0095*. 0092*. 0089*. 00865*. 00835*. 00807* HT ABLE .55 

4 . .0078, .0075*. 00725*. 0069, .0066*. 0064*. 00607, HTA8LE. 56 

g ,0058* .0055* .0052* .0049* .0046* .00416* .0041 * HT ABLE .57 

6 - .00378* .00353/ HTABLE .58 

DATA (YB8T < I ) * I = 1 .4 1 ) / . I 325 . . 1 15 * * 1 0 1 5 * . 09 15 * . 084 * . 0775 , . 071 9 . HTABLE. 59 

1 .0676*. 064*. 0606*. 0578**0555*. 0531 *. 0513* HTABLE. 60 

2 .0495. .048*. 0466, .0453*. 0A4. .043* .041 6 .,0406. HT ABLE. 61 

3 .0399 ♦ .0389, . 0382, .0375* .0367. .036* .0355* 

4 .0349,. 0343.. 0337*. 0331 *.0327*. 0321 *.0318* 

5 .0313*. 031 * .0309* .0304* .03/ 

ENTRY UOUNYB 


DEL s TBLU1(H*UDUNT*YB0T*NDEG,41) 
RETURN 

ENTRY UOUNSG 

DEL = TBLU1 <h*UDUNT*SIGBT»NDEG*41> 

RETURN 

ENTRY HTS1G 

DEL = TBLU1 (H,HT*SIGOT*NDEG,78> 
RETURN 

ENTRY HTY8AR 

DEL = 78LU1 (H*HT*YBARDT*NDEG*78> 

return 

entry htydel 

DEL = TBLU1 <H*HT*YDT*NDEG*78> 

return 
ENTRY HTSIR 

DEL = TBLU1 <H*HT ,SIGRE*NDEG*78> 

return 

ENTRY HTYBRE 

DEL = 7BLU1 (H*HT,Y8AREC»NDEG*70) 

RETURN 

ENO 


HT ABLE. 62 
HT ABLE . 63 
HTABLE. 64 
HTABLE. 65 
HTABLE. 66 
HTABLE. 67 
HTABLE. 68 
HTABLE. 69' 
HTABLE.70 
HTABLE. 71 
HTABLE. 72 
HTABLE. 73 
HTABLE. 74 
HTABLE. 75 
HTABLE. 76 
HTABLE. 77 
HTABLE. 78 
HTABLE. 79 
HTABLE. 80 
HTABLE. 61 
HTABLE. 82 
HTABLE. 83 
HTABLE. 64 
HTABLE. 85 
HTABLE. 86 


SUBROUTINE I TSM ( X , XC* IX *KX *NX > ITSH.2 


DIMENSION XC(l)tlXU) ' ITSM.3 
B=1.E30 ITSH.4 
DO 2 1= 1 *NX , , ITSM.5 
A=A8S(XC(I)-X) ITSH.6 
IF I8-A >2*1*1 I TSM .7 
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1 


nsM,8 

8= A ITSM.9 

N-I ITSM.10 

2 CONTINUE ITSH.1I 

L=N_l ■ IT5M.12 

I X(1 >= N ITSM.13 

N=N*1 1TSM.14 

DO 7 I=1*KX ITSM.I5 

IF (L ) 6»6»3 ITSH » 1 6 

3 IF <N-NX)4»4,5 ITSM.17 

4, A=ABS<XC(L>-X) I7SM.18 

B=ABS<XC<N)-X> • ITSB.19 

IF < A-B ) 5*5 *6 ITSM.20 

5 I X < X * 1 ) — L ITSH. 21 

L=L~1 ITSM.22 

GO TO 7 ITSM.23 

6 I X (I ♦ 1 ) S N ITSM.24 

N=N*1 ITSH.2S 

7 CONTINUE ITSH.26 

RETURN ITSH. 27 

END 


FUNCTION LSVFN<X*XSTART ♦LHV*H*HSV*THETAf TH2 »CF2«CF3> 
C FUNCTION TO GET I.PR» H5V ♦ ETC. 

DIMENSION X <3> * CF2 <3> 

IF <X <3)-XSTART) 6 1 » 61 963 
61 LP« = 1 
GO TO 64 

63 IPR = 2 

64 CONTINUE 

GO TO <71974) * LHV 
71 HSV a H 

TH2 = THETA 
CF3 = CF2<3) 

LHV = 2 
74 CONTINUE 

LSVFN = LPR 1 

RETURN 

END 


LSVFN. 2 
LSVFN. 3 
LSVFN. 4 
LSVFN. 5 
LSVFN. 6 
LSVFN. 7 
LSVFN. 8 
LSVFN. 9 
LSVFN. 10 
LSVFN. 11 
LSVFN. 12 
LSVFN. 13 
LSVFN. 14 
LSVFN. 15 
LSVFN. 16 
LSVFN. 17 
LSVFN. 18 


SUBROUTINE MATRIX <B»G*JMX* II *JJ> 

dimension b<u* Gil) 

JMX1 = JMX-1 

JMX2 = JHX-2 

JP = JJ 
KK = 1 1 *JJ* 1 
DO 400 I - 1 ♦ JM X 1 
100 LL = KK 0 < 1-1 ) *1 

IF < I- < JMX-JJ) ) 11591109110 

no jp - jmxi -i 

115 W = 1 ./B (LL) 

IF(JP) 2O092OOtl2O 
120 00 150 L=1 9 JP 
150 B (LL *L ) = W«P(LL*L) 

200 G < I > = W*G<I) 

10 = II 

IF< I-(JMX-Il) ) 22092109210 
210 IQ = (JMXI) -1 
220 IF (IQ) 400 f4O0 t 300 
300 00 300 L-l ♦ 10 

N = (KK-1 > ft L ♦ It 

00 360 LS-l * JP 

360 B(N*LS) = B (n*LS)-B (N) *B <LL*LS) 
380 G <L ♦ I ) = G(L*I> - 8 <N) *G ( I ) 

A00 CONTINUE 

L = KK*JMX2*1 
500 00 600 M=1 9 JMX2 

1 = JMX2-<M-1> 

L = L-KK 


MATRIX. 2 
MATRIX. 3 
MATRIX. 4 
- MATRIX. 5 • 
MATRIX. 6 
MATRIX, 7 
MATRIX. 8 
MATRIX. 9 
MATRIX. 10 
MATRIX. 11 
MATRIX. 12 
MATRIX. 13 
MATRIX. 14 
MATRIX. 15 
MATRIX. 16 
MATRIX. 17 
MATRIX. 18 
MATRIX. 19 
MATRIX. 20 
MATRIX. 21 
MATRIX. 22 
MATRIX. 23 
MATR1X.24 
MATRIX, 25 
MATRIX. 26 
MATRIX. 27 
MATRIX, 28 
MATRIX. 29 
MATRIX. 30 
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JP = JJ 

IF ( I- ( JMX-JJ) > 520*51 0*51 0 
510 JP - JNX1-I 

520 IF(JP) 550,550*530 REPRODUCIBILITY OF THE 

til TnTt gmUbil .lscgu.ls) ORIGINAL PAGE IS POOR 

550 CONTINUE 
600 CONTINUE 
RETURN 
ENO 


MATRIX. 31 
MATRIX. 32 
MATRIX. 33 
MATRIX. 3* 
MATRIX. 35 
MATRIX. 36 
MATRIX. 37 
MATRIX. 38 
MATRIX. 39 
MATRIX. AO 


SUBROUTINE OPTION (LN*LST2*0X2*0X1*DXMAX*ITR*X*L0PT *KRP2*LOX> 
DIMENSION X < 3 ) 

GO TO (250*90*300,900) * LN 
90 LOPT =1 
RETURN 

250 CONTINUE 

GO TO (90*251 ) * LST2 

251 CONTINUE 
DX2 = 0X1*2. 

IFCDX2 - DXMaX) 260,260*25,5 
255 DX1 = DXMAX 
QX2 = DX1 
260 CONTINUE 
GO TO 90 
300 CONTINUE 
KRP2 = 1 

303 GO TO (310*320)* KRP2 
310 CONTINUE 
C 310 CAUL PRINT (5) 

320 ITR = JTR ♦ i 
. LOPT =2 
RETURN 

. 400 CONTINUE 
ITR = 1 

GO TO (420*410) ♦ LST2 
410 CONTINUE 

LDX = L0X*1 
X ( 3 ) = X ( 3 ) “OX 1/2 • 

0X1 = .5*0X1 
DX2 = 0X1 
420 CONTINUE 

IFIL0X-16) 800*900*900 
800 LOPT = 2 . 

RETURN 

900 LOPT s 3 } 

RETURN 

END t 


OPT ION, 2 
OPTION. 3 
OPT ION. 4 
OPTION. 5 
OPTION. 6 
OPTION. 7 
OPTION. 8 
OPTION. 9 
OPT ION. 10 
OPT ION. 1 1 
OPTION. 12 
OPTION. 13 
OPTION. 14 
OPTION. 15 
OPTION. 16 
OPT ion;i7 
OPT ION. 18 
OPTION. 19 
OPTION. 20 
OPTION. 21 
OPTION, 22 
OPTION. 23 
OPT ION. 24 
OPT ION. 25 
OPTION. 26 
OPTION. 27 
OPT ION. 28 
OPTION. 29 
OPTION. 30 
OPT ION. 31 
OPT I0N.32 
.OPT ION .33- 
OPTION. 34 
OPTION. 35 
OPTION. 36 
OPTION. 37 
OPTION. 38 


SUBROUTINE PF I ELC <L * X »P * Y , XTB ) 

ROUTINE TO CALCULATE THE EXTERNAL PRESSURE FIELO 

COMMON/ SCRAT / ALFS ( 200 ) ♦ C8ET A ( 2 00 ) * 0 (1 0 0 ) » JY ( 25 ) * JYT ( 25 ) ♦ OY ( 25 ) 

1 xx(25)»YPL(I00>*Y0U00)*CF(?00)»YODU00)»U(100*3),UT(100),V(100) 

2 GAM! ( 1 00) * GAME (1 00) *H(200)*US(100) ♦ YY ( 100 ) * UR (100) tUUR(lOO) , 

3 UP ( 100 ) *W(lO0*3) ,8(400) , BN (400 ) , YYOEL ( 1 00 > ♦ GNUT (100,3) *OU ( 200 ) » 

4 UT A8LE (100) .DUDY (100, 3)*P5(100»3),SP (100*3) ♦ THETA (200 ) ♦ 

5 0X0(20, 30), ePC(20* 30) *UUC (20*30) *UEDGE ( 1 00 ) * WP ( 1 00 ) * XPG ( 1 0 0 ) , 

6 UPG (100) »WC( 100) ,BETA(100) »RT AB (50 ) *G(99) *GW (99) *A3(100) *A31 (100 
7,A4 { 100) *OUMMy (452) 

DIMENSION P(3> *Y(100> ,XTB(30) 

COMMON/PLUB/ NCPX.NCPY*KCP* YOELP 

C0MM0N/S2 1/JMX 

COMMON/ SZ3/OUOM(3)*Ufi<3) 

COMMON/ JAG/LST 2 

COMMON/ ST AT /PHREF,UREE 

COMMON/OP 10/ YCP (2 0) »CP (20 * 30 ) * YGAP 

COMMON/STP/KSTP 

COMMON/UVEL/UENO 


PFIEL0.2 
PFIEL0.3 
,PF IEL0.4 
, PF 1EL0.5 
PFIEL0.6 
PF1EL0.7 
PFIEL0.8 
PFIEL0.9 
)PF IELD.10 
PFIELO.il 
PFIEL0.12 
PF1ELD.13 
PFIEL0.14 
PF I ELD. 1 5 
PFIEL0.16 
PFIEL0.17 
PF I ELD. 18 
PFIEL0.19 
PF 1ELD.20 
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JMX1 = JMX - 1 
GO TO < 30*40) *KSTP 
30 CONTINUE 

00 20 J = 1 * JMX 1 

PS(J»3) = -T^LU2 ( Y < J> *X » YCP* XTB*PPC* 1 * 1 *NCPY*NCPX» 20 » 30 ) 
20 CONTINUE 
40 CONTINUE 

PI3> = TBLU2(Y(JHX) *X*YCP*XTB*PPC*1*1*NCPY*NCPX»20*30> 
JHM = JMX ♦ 4 
JML « JHX-6 
GO TO (60*50). KSTP 
50 CONTINUE 

DO 10 J - ltJNM 

UEOGE ( J) = TBLU2 (Y < J) *X *YCP»XTB*UUC* 1 « 1 *NCPY*NCPX* 20 * 30 > 
10 CONTINUE 

UENO = UEOGE ( JMX l ) 

U8<3) = UEOGE < JMX } 

U ( JMX* 1 ♦ 3 ) =* UEOGE (JMX* l > 

U ( JMX *2*3) » UEOGE ( JMX*2) 

60 CONTINUE 

GO TO (200*300)9 L 
200 CONTINUE 

P (2 ) = P ( 3) 

P(l) = P(3) 

U8 ( 2 ) = U8 ( 3 > 

U8(l) = U8 (3 ) 

300 RETURN 
END 


PFIELD.21 
Pf IELD. 22 
PF IELD. 23 
PFIELD.24 
PFIELO.25 
PFIELO.26 
PF IELD. 27 
PF I ELD. 28 
PFIEL0.29 
PF IELD.30 
PF IELD. 31 
PF I ELO * 32 
PF IELD. 33 
PF IELD, 34 
PF1EL0.35 
PF IELD. 36 
PF IELD. 37 
Pf IELD. 39 
PF IEL0.39 
PF IELD, 40 
PF IELD, 41 
PF IELD, 42 
PFIEL0.43 
PFIEL0,44 
PFIELO.45 
PFIEL0.46 
PF I ELO *47 
PFIEL0.48 


SUBROUTINE POUT (NPRF *X * XMX ,KRTNN.LST2, ITRR *LN* 1TR) ' 
DIMENSION X ( 3 ) 

COMMON/ PNTOP/KKZ 

COMMON/ XFND/XF INC (20) *NXF IND 

DATA KXFlNO/1/ 

IF(KXFIND.GT,NXFlND)GO TO 200 
IF(X(3) -LT.XFIHO(KXFIND) )GO TO 200 
CALL PRINT ( 2 ) 

KXFIND=KXFINH*1 
200 CONTINUE 

c IF < ABS (X (3>-xX (KP) )-l ,E-06) 102*102*101 

IF (NPRF.EO.l > GO TO 103 
101 KNPRT = MOO(KPRFtKKZ) 

IF(KNPRT.EQ.O) GO TO 103 

GO TO 105 i ' 

C 102 KP - KP * 1 
103 CALL PRINT (2 ) 

105 IF(X(3)-XMX) 108*106*106 
. 106 CALL PR I NT ( 2 ) 

KRTNN = 1 
RETURN 
108 CONTINUE 
KRTNN = 2 

GO TO (95*97)* LST2 
95 ITRRMTRRM 

CALL TE5T (LN,ITR*2*LST2) 

97 GO TO (80*98)* LST2 

80 CALL SORT (2 ) : 

C PERFORM SORT* BUT NOT FOR X. 

C PRINTOUT THE NEW V. 

CALL PRINT ( 2 ) 

GO TO 84 

C PERFORM USUAL SORT, 

98 CALL SORT(l) 1 
84 CONTINUE 

RETURN 

END 


POUT. 2 
POUT. 3 
POUT. 4 
POUT ,5 
POUT. 6 
POUT. 7 
POUT. 8 
POUT. 9 
POUT. 10 
POUT. 11 
POUT i 1 2 
POUT. 13 ' 
POUT. 14 
POUT. 15 
POUT. 16 
POUT. 17 
POUT. 18 
POUT. 19 
POUT. 20 
POUT. 21 
POUT. 22 
POUT. 23 
POUT. 24 
POUT. 25 
POUT. 26 
POUT. 27 
POUT. 20 
POUT. 29 
POUT. 30 
POUT. 31 
POUT. 32 
POUT. 33 
POUT. 34 
POUT. 35 
POUT. 36 
POUT. 37 
POUT. 38 
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SUBROUTINE PPINT(L) 

C ROUTINE TO PRINT 80UN0ARY LAYER OUTPUT 

COMMON/ SCRAT / A LFS < 20 0 ) « CBET A < 200 ) ♦ Y (1 0 0 ) » JY ( 25 ) ♦ JYT < 25 > . DY ( 25 > 

1 XX < 25 ) »YPL < I 00) *Y0 (1 00) *Cr" (200) • YDD ( 1 00) *11 < 100*3> *UT U 00) *V( 1 00) 

2 GAM I U00)*G4MFU00)»O(20O)*USU00)*YY(l00)*OMU00) *UUR< 1 00 ) ♦ 

3 UP(10Q)*W(l0Q*3)*B<400)*9W(400> ♦ YYOEL < I 00 ) *GNUT (100*3) »DU < 200) « 

A UTA6LEI100) ♦DUOY (100*3) *PSn00*3> *SP ( 10 0 *3 ) * DUNCE <200 ) * 

5 DXO (20*30 )*PPC< 20*30) »UUC(20* 30 ) *UtDGE ( 1 00 ) *WP U 00 ) *XPG ( 100 ) * 

6 UPG ( 100 ) *WC ( 100) *8ETA < 100 > *RTAB (50) *G(99> *&W (99) * A3( 100) ,A31 < 100 
7* A4 < 1 OQ) *UR < 100*3) * DUMMY (152) 

COMMON /TITLE/ TITLE10) 

DIMENSION X (3) *U8(3> *P<3> *CF2(3) ‘ 

COMMON/SZ 1 / JHX*LMX»NP*UTS* ITRMX*WT*KWAL*0X*U8IN 
COMMON/S23/X «U8 

COMMON/ SZ4 / UT AU *UD *0ELS * THET A *H*DELT A * CF2 * XMX*GNU 

COMMON/ PRESSUR / P 

C0HM0N/SZ9/ITR 

COMMON/SZ 1A/NPRF 

COMMON/SZ21 / I TPR 

COMMON/VPRF/wVPR 

COMMON/S ZTBL/XSW*HSV 

COMMON/XMON/TH2*CF3 

COMMON/XMPR/UTEST *UTJ*UTSS *UTRR 

C0MM0N/CL/CL,CDT*C0F,C0P*0UM<2) *CM 

COMMON/ CURVl / R (3) 

COMMON/ ST AT/PHREF.UREF 
COMMON/ S ANGLE /S ANGLE 
COMMON/PHIL/IPHIL 
COMMON/ 1TR/1TR999. I TRM99 

COMMON/P ARAM/M ACF * ALPHA * REF A *M AT TN*REFC*U IN * REEX*REFZ »CREF 
DIMENSION YNORM ( 1 00 ) *UNORH (100) *WNORM (100) 

IF ( I TR999 .LT , IPHlL ) GO TO ( 75 * 600 1 * 75* 75 *6002 * 75 *75 * 75 * 75*75 ) *L 
GO TO < I 00 *200 ♦ 300 *900 *50 0 * 600 *70 0 *800 * 900 ? 1000 ) * L 
100 WRITE <6*1 ) 

RETURN ' 

200 CONTINUE 

WR I TE <6 * 22 ) 

C NORMAL PRINTOUT 

WRITE <6*20) (TITLE 1I>* 1=1*8) 

WRITE <6*26> X ( 3 ) » X ( 3 ) *OX *U T AU »DEL T A *CF2 ( 1 ) *DELS*CF2(2)*THETA* 

! CF2 < 3 ) *H*ITR»UC*NPRF*U8(3) *R<3) 

WRITE <6*7) X <2) *X (3) *X(3) 

DO 6666 J= 1 ♦ JMX 
YNORM ( J ) =Y < J)/REFC 
UNORM (J>=U(J*3)/U (JMX*3) 

WNORM(U) =0,0 

IF<W< JMX*3) .FQ.O.O>GO TO 6666 
WNORM <J)=W(J«3)/W(JMX*3) 

6666 CONTINUE 

WRITE (6*9) (YNORM (J) *WNORM(J) * UNORM (J) *UP< J> *DU0Y <J*3> * 

. V<J) *GNUT ( J»3) * 


1 PS ( J *3 ) *UEDGE ( J) ♦ 


6001 


55 


300 


J=1 * JHX) 
55 


IF <SANGLC *EQ. 0,) GO TO 
CALL RESULT <CF2»JMX*X*2) 

CONTINUE 
RETURN 
CONTINUE 
WRITE (6*22) r 

C PRINT ITERATION NUMBER 
WR I TE <6 * 5 ) ITR 
RETURN 

C PRINT TERMINATION MESSAGE* 

400 WR IT£ (6* 12) 

RETURN 
CONTINUE 
WRITE <6*22) 

WRITE (6*15) X (3) „ „ „ 

WRITE (6 *14) X<3> . DELTA. DELS, THETA, H.UD*UTAU*CF2< 1J.CF2 (2) *CF2<3) 
UTR*NPRF*U8<3> 


500 


PRINT, 2 
PRINT. 3 

♦PRINT. 4 

♦ PRINT. 5 
PRINT, 6 
PRINT. 7 
PRINT. 8 
PRINT. 9 

) PR INT. 1 0 
PRINT. 11 
PR INT, I 2 
PR INT. 13 
PRINT. 14 
PR INT. 1 5 
PRINT. 16 
PRINT. 17 
PRINT. 18 
PRINT. 19 
PR INT. 20 
PR INT. 21 
PRINT. 22 
PRINT. 23 
PRINT. 24 
PRINT. 25 
PRINT. 26 
PRINT. 27 
PRINT. 28 
PRINT. 29 
PRINT. 30 
PR INT. 31 
PRINT. 32 
PRINT. 33 
PRINT. 34 
PRINT. 35 
PRINT. 36 
PRINT. 37 
PRINT. 38 
PRINT. 39 
PRINT. 40 
PRINT. 41 
PRINT. 42 
PRINT. 43 
PRINT.44. 

' PRINT. 45 
PRINT. 46 
PRINT. 47 
PRINT. 46 
PRINT. 49 
PRINT. 50 
PRINT. 51 
PRINT. 52 
PRINT. 53 
PRINT. 54. 
PR INT. 55 
PRINT. 56 
PRINT. 57 
PRINT. 58 
PRINT. 59 
PRINT. 60 
PRINT. 61 
PRINT. 62 
PRINT. 63 
PRINT. 64 
PRINT. 65 
PRINT. 66 
PRINT. 67 
PRINT. 68 

* PRINT, 69 
PRINT. 70 
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6002 DO 520 J * l.JMX 
UR ( J * 2 ) « UP ( J ) 

520 URU.3) = U C J * 3 ) 

ITRM1 = ITR-1 

C PRINT LAST TWO ITERATIONS. 

WRITE (6*16) ITRM1 * ITR , __ 

WRITE<6*17> (YU) ♦ <UR< J*I > * I=2*3>* DUOYU*3)* V < J) * GNUT ( J * 3 > ♦ 
i PS ( J*3) * J= 1 ♦ JMX ) 

RETURN 

600 CONTINUE 

WRITE <6*22) 

C PRINT NO CONVERGENCE MESSAGE. 

WRITE <6*2i) I TRR 
RETURN 

700 CONTINUE 
WRITE (6*22) 

C PRINT ARRAY OVERFLOW MESSAGE. 

WR I TE ( 6 * 30 ) JMX 
WRITE <6*22) 

return 

800 CONTINUE 

C PRINT SEPARATION MESSAGE. 

WRITE (6*35) 

WRITE (6*22) 

RETURN 
CONTINUE 
WRITE (6*22) 

RETURN 

CONTINUE • 

WR1T£<6*22) 

WR I TE (6 *50) DELS * THET A *H 
WRITE(6*60> 

WRITE(6*6l) CL »CCT 
WR 1 TE (6 ♦ 22) - 

RETURN 

FORMAT <1h1.20X**CALCULATEO VELOCITY F IELO FOR 
FORMA T ( 1 H *20X*20H** NO CONVERGENCE IN*IA*16H . 

FQRMATllH *1 aX* 3HX =F 1 2 .9 *3X *3MX =F 1 2 . 8 * 3X * 3HX =F12.8/1H *2X * 1HY * IPR I NT * 108 
13X*lHW*17X*i HU »17X» 2HUP ♦ 1 OX ,5HDU/DY *7X*JHV*1 IX* AHEDDY «8X * 6HP-GR AO* PR I NT . 1 09 

1 aX.IOHU-INVlSCIC) nnltll*!!? 

9 FORMAT ( 1 H *F9 .5 * 2 X * E 1 2 « 3* 6X * E 1 2 . 3 ♦ 6X * 6E1 2 .3 > 

12 FORMAT ( I HO// )H0*30X.16HCASE TERMINATED.) ^ J JJT * } \ \ 

1A FORMATUH *7?X* 1 3HVALUES AT X =*F 12.8/73X *7H0ELTA «E 1 2 .3/73X * 7HOELPR I NT • 1 1 3 

1« =E12.3/73x.7HTH£TA = E 1 2 . 3/ 73X * 7HH , 3/7 3X » 7HUO • • • -E 1 2 . 3PR INT . 11 A 

2/73X*7HUTAU -E12.3/73X »7HCF U ) =E12.3/ 73X*7HCF(?) *E 1 2 .3/73X ♦ 7HCPR I NT , 1 1 5 
3F(3) =E 12 • 3/73X ♦ 7H1 TER =♦ I A/73X * 7HPRF *NO» * 15/ 73X7HU =*£12.3) PRINT. 116 

15 FORMATUH * 30 X * 38HRESUL T S FOR LAST TWO ITERATIONS AT X »*F12.0) PRINT. 117 

16 FORMATUH *1AX* 6HI TER = 1 2 ♦ I 0 X * 6H I TER = I 2 , 1 8X , 1 7H0THER VALUES USEOPR IN T . 1 1 0 

1/1H .2X*1HY*13X*5HU/UFS.13X*5HU/UFS*13X*5HOU/OY.7X.1HV.11X*AMGNUT*PR1NT.H9 

2 1 A X . 2HPS »8X*7HSTAT-PR) PRINT. 120 

17 FORMAT ( 1H ♦F8.6.3X*E12«3*6X*E12.3*6X»3£12.3*5X*E12.3) 

FORMATUH *2f>X*8A10*10X*A10*A2) 

FORMATUHO* 25HNC PROFILE CONVERGENCE IN* 1 3* 1 2H I TERAT IONS . ) PRINT. 12-3 

FORMAT UHO/lH0*lSX*lOO ( 1 H* > ///) 

FORMATUH * A 1 X * 28HRESULTS-L AST THREE PROFILES.) . PRINT. 125 

FORMA T ( 8H AT X = » F 1 2 .8 * 5A X , 8H AT X **F 1 2 .8/8H0DX * » E 11 . 3 *56X *PR I NT . 1 26 

1 7HUTAU =*£1I.3/'8H OELTA = *E 1 1 • 3 *56X » 7HCF2 < 1 ) * * E 1 I . 3/ PRINT.127 

1 8H DELS -*E11.3*56X*7HCF2<2)-*E11.3/8H THETA ■*EI1.3*56X« PRINT. 120 

1 7HCF2 ( 3 ) = *El 1 .3/8H H = *E 1 1 • 3 *56X * 7H I TER »»I3/8H UD 

1= «E 1 1 . 3 *56X *7HPRF NO=*IA/8H U = *E 1 I • 3 » 56 X * 7HR ( 3 ) =*E11.3//> 

30 FORMATUHO* 33HD IMENS I ON LIMITS EXCEEDED. JMX =*IA* 

12X* 16hcase terminated.) 

35 FORMAT (20X»30HSEPARATI0N. - CASE TERMINATED.) ---- 

50 FORMAT ( 1H0 *20X **VALUE5 OF DISPLACEMENT THICKNESS* MOMENTUM THICKNEPR INT • l 3A 
1SS.*/21X**AN0 SHAPE FACTOR FOR THE WHOLE BOUNDARY LAYER (LAST PROFPR INT . 135 
2 ILE ) • *//2 IX * *DELS -® * E 1 0 » 3 * AX * *ThET A = ® ♦ E 1 0 . 3 * AX *®H *®*E10.3) PRINT. 136 

FORMAT (1H0*20X*«LIFT COEFFICIENT* 10X *PROFILE DRAG COEFF IC IFNT*/) PR INT . 1 37 
FORMAT UNO »20X**CL *E 1 0 .3 * 1 2X * *CD =**E10.3> PRINT. 138 

ENQ PRINT. 139 


900 


1000 


75 

1 

5 

7 


PRINT ,71 
PRINT. 72 
PRINT. 73 
PRINT. 7A 
PRINT. 75 
PRINT. 76 
PRINT. 77 
PRINT. 78 
•PRINT. 79 
PRINT. 80 
PRINT. 81 
PRINT. 82 
PRINT. 03 
PRINT. 8A 
PRINT. 05 
PRINT. 86 
PRINT. 87 
PRINT. 80 
PRINT. 89 
PRINT. 90 
PRINT. 91 
PRINT. 92 
PRINT. 93 
PRINT. 9A 
PRINT. 95 
PR INT. 96 
PRINT. 97 
PR INT. 98 
PRINT. 99 
PRINT. 100 
PRINT. 101 
PRINT. 102 
PRINT. 103 
PRINT. 10A 
PR INT. 105 

FLAP UPPER SURFACE*) PR INT • 106 
ITERATIONS. **/) PRINT. 107 


20 

21 

22 

2A 

26 


PRINT. 129 
PRINT. 130 
PRINT, 131 
PRINT. 132 
PRINT. 133 


60 

61 
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SUBROUTINE RESULT <CF2» JMX »X.L ) 

C CALCULATION OF STREAMWlSE AND CROSSFLOW VELOCITY 
C PROFILES FOR PRINTOUT 

COMMON/ SCRAT / ALFS ( POO > * OBET A ( 2 00 ) # Y ( l 0 0 ) ♦ JY ( 25 ) 

1 XX<25) tYPL< 100) * YD (100> *Cf (200) *YOD 1100) *UU 00*3) 

2 GAM I (100) *GAMFUOO)*H<200) *IJS(100) * Y Y ( 1 0 0 ) *UR <100 

3 UP ( 1 0 0 ) ,W(l00»3> ,8(400) * B W ( 4 0 0 ) * YYOEL ( 100 > »GNUT < 1 
A UTABLE (100) .DUDY ( 1 00 * 3 > * PS U 00 » 3 ) * SP ( 1 00 ♦ 3 ) f THET A 

5 DXO ( 2 0 ♦ 30 ) *PPC(20t30) *UUC (20 t30> »UEDGE ( 100) *WP ( 10 

6 UPG(IOO) tWC(lOO) »BETA(lOO) «RTAB(50) *G<99> »GW (99) * 
7, A4 C 100> » DUMMY (AS 2) 

COMMON /XIN/ XIN(IOO) ♦ZIN(IOO) »CPINUO0>*SU(10O) 
COMMON /SANGLE/ SANGLE 
COMMON /NPT/ NPT 
COMMON/ W8 /V) 8 (3) 

COMMON/ 5Z3 / DUN .U6 
common/phil/iphil 

COMMON/ ITR/ITR999 ♦ ITRM99 
01 MENS ION CUm (3) ♦U8(3)*X(3)»CE2<3) 
COMMON/CER/CfR*CFS*CEC 
COMMON/BLOUT/ HS*ThTS»CEST 
UR ( 1 ) - 0 * 


RESULT. 2 
RESULT. 3 
RESULT. A 

t JYT (25) tDY (25) * RESULT .5 
♦UT (100) »V(100) * RESULT .6 
>»UURd00)t RESULT. 7 

00,3) *DU<200» * RESULT. 8 
(200). RESULT .9 

O).XPG(IOO). RESULT. 10 
A3 (100) .A31 ( 100 ) RESULT. 11 
RESULT. 12 
RESULT. 13 
RESULT. 1A 
RESULT. 15 
RESULT, 16 
RESULT. 17 
RESULT. 18 
RESULT. 19 
RESULT. 20 
RESULT. 21 

DF«;iU T _ P? 


US(1) = 0. 

» WC ( 1 > * 0* 

OELS = 0. 

THTS = 0. 

1 = 3 

ALPAN = TBLUl (X(3> .XPGtALFS.l.NPT) 

USMAX s SORT (U8(3>**2 ♦ WB(3> oa 2> 

USMAX2 = USMAX* ft 2 

00 10 J = 2.JMX 

UR ( J) = SORT <U ( J* I ) **2 ♦ W<J»J)**2) 

BETA(J) a ACOS (U< J. I)/UR( J) ) - ALPAN 
US(J) = UR< J)*COS(BETA(J) ). 

WC(J) = UR ( J ) *S I N ( BET A < J ) > : 

DDY = Y ( J ) “ Y(J-l) 

UAV = .5* (US ( J) ♦ US(J-l)) 

UAV2 = UAV«°2 

OELS = OELS ♦ (1 ,-UAV/USMAX)«ODY 
THTS = THTS ♦ UAV*DDY/USMAX - UAV2*D0Y/USMAX2 
10 CONTINUE 

BETA (1 ) = 2.«BETA(2> - BET A (3) 

HS = 0ELS/TH7S 
CBETA 3 BET A ( 1 ) 

CFR = CF2(3)/C0S(ALPAN * CBETA) 

CFS = CFR°COS (CBE TA> 

CFST = CFS 

CFC = CER*S IN (CBE TA > 

CBETA = CB£TA*57. 29578 
ALPAN = ALPAN*57. 29570 
1FUTR999.LT. IPHIL) GO TO 100 
GO TO(100.200)»L 
200 CONTINUE 

WRITE <6. 6300) 

6300 FORMAT (1H0*5x»IHJ.10X»2HUR»]2X.4MBETA*15X»2HUS.13X.2HWC> 

WRITE (6.6000) (J,UR(J) .8ETA(J) . US ( J) *WC ( J) ,J=1 ♦ JMX) 

6000 FORMAT (!5,5X.E12.4»5X»E12.4»5X»E12.4,5X»E12.4> 

WRITE (6.6200) 

WRITE (6.6100) X(3) »C8ETA,CE2(3) »CFR.CFS.CFCtW8(3) .ALPAN 
6200 FORMATUH0.5X.1HX.1 OX .SHCBET A . 1 OX .6HCF2 < 3 > » 1 2X» 3HCFR .12X.3HCFS* 

1 l2X»3HCFC.15X.5HWfi(3) ♦ 15X.5HALPAN) 

6100 FORMAT (lH0»Efl»4,5X,Ffl.4,6 (5X.E12.4) ) 

WRITE (6.6400) 

6400 FORMAT (1H0.5X.JHH.7X. 10HDELTA»STAR*5X.5HTHETA) 

WRITE<6.6500> HS. OELS. THTS 
6500 FORMAT! 1H0.E8.4.2 (5X.E12.4) > 

100 CONTINUE 
RETURN 
ENO 


RESULT. 24 
RESULT, 25 
RESULT, 26 
RESULT. 27 
RESULT .28 
RESULT, 29 
PE5ULT .30 
RESULT. 31 
RESULT. 32 
RESULT, 33 
RESULT. 34 
RESULT. 35 
RE5ULT.36 
RESULT. 37 
RESULT, 38 
RESULT. 39 
RESULT, 40 
RESULT. 41 
RESULT. 42 
RESULT.43 
RESULT. 44- 
PESULT.45 
RESULT. 46 
RESULT. 47 
RESULT. 48 
RESULT. 49 
RESULT .50 
RESULT. 51 
RESULT. 52 
RESULT. 53 
RESULT. 54- 
RESULT. 55 
RESULT. 56 
RESULT. 57 
RESULT, 58 
RESULT. 59 
RESULT. 60 
RESULT. 61 
RESULT. 62 
RESULT. 63 
RESULT. 64 
RESULT. 65 
RESULT. 66 
RESULT. 67 
RESULT, 60 
RESULT. 69 
RESULT. 70 
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SUB ROUT INE SETUP? (LPR *KP *LST 1 »LST2, I TRfl.DX 1 * 0X2, DX* JMX 1 « JMX , 
1X*XSTART »NPRF»U0»U8IN*P*OU) 

01 MENS I ON X ( n «U8 u ) ,P ( 1 > »0u<200> 

COMMON/ DU8X / OU8X 
COMMON /NPT/ NPT 

COMMON /XIN/ XINUOO) *ZIN(100) *CPIN(100> tSU(100> 

LPR = 1 
KP = 1 


reproducibility op the 

ORIGINAL PAGE IS POOR 


U8 ( 2 ) = U8FNT < X < 1 > ,U8IN) 
U8 ( 2 ) = UBFNT(X<2) ,U8IN) 


LOI 1 = 

LST2 = 

i 

1 


I TRR a 

0 


0X1 a 

OX 


0X2 = 

ox 


JMX 1 a JMX- 1 

X (3 ) = 

X! 

5 T ART 

X ( 2 ) = 

X 

(3>-0X 

XU) = 

X 

( 2 ) -OX 

XSTART 

a 

X (2) 

XSTART 

= 

X (3) 


U8<3) = U8FNT (X<3> ,U8IN> 

PU) = 0. 

P<2> = 0. 

P(3) = U8<3)*12.«U8IN*TBLU1 (X<3> *X IN,DU* 1 ,NPT) 

RETURN 

END 


SETUP?. 2 
SETUP2.3 
SE TUP2 • 4 
SETUP?. 5 
SETUP2.6 
SETUP?. 7 
SETUP2.8 
SETUP?. 9 . 
SETUP2.10 
SETUP2.il 
SETUP2.12 
SETUP?. 13 
SETUP?. 14 
SETUP?. 15 
SETUP?. 16 
SETUP2.17 
SETUP2.18 
SETUP?. 19 
SETUP?. 20 
SETUP?. 21 
SETUP?. 22 
SETUP?. 23 
SETUP?, ?4 
S6TUP2.2S 
5ETUP2 .26 
SETUP? .27 
SETUP2 .28 
5ETUP2.29 


FUNCTION SHAoE(OFLS»TMETA»P,Y,U,Uft*JHx»X,YYDEL,KALL> 

ROUTINE TO CALCULATE THE INTEGRAL BOUNDARY LAYER PARAMETERS 

COMMON/ SCRAT / ALFS (200 ) *CBET A <20 Q ) » 0 { 1 00 ) * JY ( 25 ) » JYT ( 25 ) »OY ( 
1 XX 125 > »YPL (100) .YOU 00) *CF(200) ,YOD<100) » T U 00 ,3) ,UT ( 1 00 ) ,V ( 1 
GAM I U OQ) *GAMF ( 100) *7(200) »US< I 00) »YY< I 00) *UR ( 100) »UUR U 00 ) * 
UP< 100) tWI 100*3) .8(400) *0W (400) . DUNCE < 1 0 0 ) *GNUT (100.3)* DU (200 
U7 ABLE (100) .DUOY ( 1 0 0 » 3 ) * PS ( 1 00 ♦ 3 > * SP (1 00 . 3 ) * DUMMM ( 20 0 ) * 

0X0(20*30) *PPC( 20.30 ) *UUC (20.30 >*UEDGE( 100) *WP (100) *XPG( 100) ♦ 

UPG(lOO) »*C(100)»BETA(100>,RTAB(5Q>»G(99) »GW(99},A3(100),A31 ( 
7*A4 U 00) tOUMMY (452) 

COMMON/ SZ4 / DUNNY (5 ) *OELTA 

DIMENSION P (1 ) *Y(1)»UU00*3)»U8(1>»X<1> * YYOEL (100) 

COHMON/ XSTART / XST ART 
COMMON/ SHAPE /JSP.CNNS.UMX 
COMMON/ CURV 1 / R ( 3 ) 

CALCULATE UMAX, AND FIND JSP. 

1 = 3 

IF(JSP.GT.JMX) JSP ^ JMX 
OELS a 0. 

THETA =0, 

IF (KALL.EQ.2) UMX = U8 (3 ) 

IF (KALL.EQ.2) JSPaJMX 

IF( (KWAL.EQ.?) .OR. (R<3) ,GT.(OFLTA*l.ElO))) GO TO 50 
UP* = UMXo(l.,Y(JSP>/R(I>) 

c up* = ueogeu ) 

GO TO 60 
50 CONTINUE 

UP* = UMX 

60 CONTINUE 

JLIM s JSP 

IF (KALL .E0.2) JLIM a JMX 
00 80 J=2»JLIM 
PY = Y(J> ♦ Y(J-l) 

ODY = Y(J)-Y(J-1) 

OUO = U ( J*3) ♦ U(J-1 5 3) 

UAV a -5»DUC 

UPS = UPW/(1, ♦ PY/(2.*R(I)>) 

C UP = UEDGE(J) 

Q = DOY* (UPS-UAV )/UPW 


SHAPE. 2 
SHAPE.3 
25) *SHAPE,4 
00) .SHAPE. 5 
SHAPE. 6 
), SHAPE. 7 
SHAPE. 0 
SHAPE. 9 
100)SHAPE.|0 
SHAPE. 1 1 
SHAPE.12 
SHAPE. 13 
SHAPE. 14 
' SHAPE. 15" 
SHAPE. 16 
SHAPE. 17 
SHAPE.18 
SHAPE. 19 
SHAPE. 20 
SHAPE.21 
SHAPE. 22 
SHAPE. 23 
SHAPE. 24. 
SHAPE, 25 
SHAPE. 26 
SHAPE. 27 
SHAPE. 28 
SHAPE. 29 
SHAPE. 30 
SHAPE. 31 
SHAPE. 32 
SHAPE. 33 
SHAPE. 34 
SHAPE. 35 
SHAPE. 36 
SHAPE. 37 
SHAPE. 38 
SHAPE.39 
SHAPE .4.0 
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THETA = THETA ♦ Q«UAV/UPW 

DELS = DELS ♦ 0 

00 CONTINUE 

H = OELS/THETA 
00 99 J=l»JMx 
99 YYOEUJ) = Y(vJ)/OELS 
SHAPE * H 
RETURN 
END 


SHAPE .A 1 
SHAPE. 42 
SHAPE. A3 
SHAPE .AA 
SHAPE *A5 
SHAPE. A6 
SHAPE. A7 
SHAPE. AS 
SHAPE. A9 


SUBROUTINE SORT(L) , 

COMMON/ SCPAT / ALFS ( 20 0 > . CBET A ( ?00 > , Y U 0 0 > » JY ( 25> * JYT ( 2S ) * OY ( 25 ) * 

1 XX ( 25 ) ♦ YPL ( 100) * YO < 1 00 ) ♦ Cr < 2 00 ) , YDO ( 1 00) »U < 1 00 »3 > ,UT 1 100) » V ( 10O)t 

2 GAM I (100 ) *GAMF ( 1 00) ,H<200 ) *US ( 1 0 0 ) ,YY UOO ) *UR (100) »UUR ( 1 00 > ♦ 

3 UP U0Q>»W<lOOt3)»B<AOO)*BW<AOO>. YYOEL (100) *GNUT <100.3). DU (2 00 > * 

A UT ABLE <10 0) ,DUDY (100.3) . PS U 0 0 . 3 ) ♦ SP (1 0 0 * 3 ) * T HET A ( 200 1 * 

5 DXD<20*30) *PPC (20.30) .UUC ( 20 1 30 > .UEDGE < 1 00 > » WP < 1 00) * XPG U 0 0 > . 

6 UPG(IOO) »WC (1 00) .BETA(lOO) »RTAB (50> »G(99)*0W(99) * A3 ( 100) »A31 (100) 
7.AA ( 100> .OUMMY (A52) 

DIMENSION XII) .U8(3).P(3) 

COMMON/ SZ 1 / JMX»LMX»NP*UTS » 1TRMX* WT *KWAL,DX *U8 IN 

COMH0N/SZ3/X.U8 

COMMON/ PRESSUR / P 

C0MH0N/W8/W8 (3) ' 

COMMON/PLUB/ NCPX ,NCPY *KCP » YOELP 
COMMON/ CUBV1 / P(3) 

GO TO (100.200). L 
100 CONTINUE 

00 150 K - 1.2 
X ( K ) = X(K*l) 

P ( K ) = P ( K ♦ 1 ) 

U8(K» = U8IK.1) 

R ( K ) = R ( K * 1 ) 

W8(K) = W8 (K ♦ 1 ) 

continue 


ISO 

200 


260 

250 


270 


CONTINUE 
00 250 K 
00 260 J 
U ( J * K ) = 
PS(J.K) = 


= 1.2 
= 1,100 
U ( J,K*1 ) 

PS ( J.K ♦ 1 ) 


W(J.K) = VHJ,K*1) 
C0NT 1NUE 
CONT 1NUE 
DO 270 J 
GNUT ( J.2) 

OUDY ( J.2) 

CONTINUE 
RETURN 
END 


= 1,100 
s GNUT ( J .3 ) 
s OUDY ( J.3) 


SORT, 2 
SORT. 3 
SORT .A 
SORT, 5 
SORT, 6 
SORT. 7 
SORT. a 
SORT. 9 
SORT. 10 
SORT. 11 
SORT, 12 
SORT. 13 
50RT.1A 
SORT. 15 
SORT. 16 
SORT. 17 
SORT. 19 
SORT. 19 
SORT. 20 
SORT, 21 
SORT. 22 
SORT. 23 
S0RT.2A 
SORT. 25 
SORT. 26 
SORT. 27 
SORT. 28 
SORT. 29 
SORT .30 
SORT. 31 
SORT. 32 
SORT. 33 
S0PT.3A 
SORT *35 
SORT. 36 
SORT. 37 
SORT. 38 
SORT. 39 
SORT, AO 


SUBROUTINE Speed <L ST 2, I TRR » ITR* V ,U. JMX.X.Y.LN) 
DIMENSION VOOO), UI100.3). X(3). Y(100) 
COHMON/MARY/OXS 
COMMON/ XSTAPT / XSTART 
GO TO (8000.A002). LST2 
8000 IF(ITRR-2> 8002,8002,8001 • 

0001 CALL PRINT (6) 

LST2 - 2 
8002 CONTINUE 

IF ( ITR-2 ) 130.120,120 
120 VII) = 0. 

GO TO (6006,130), LST2 
8006 ITRR = ITRR+1 

CALL TEST<LN. ITR,2,LST2) 

GO TO (8008,130), LST2 
0008 CALL SORT (2) 

130 CONTINUE 
RETURN 
END 


SPEED. 2 
SPEED. 3 
SPEED. A 
SPEED. 5 
SPEED. 6 
SPEED. 7 
SPEED. 0 
SPEED. 9 
SPEED. 10 
SPEEO.U 
SPEEO. 12- 
SPEED. 13 
SPEED. IA 
SPEED. 15 
SPEED. 16 
SPEEO. 17 
SPEEO. 18 
SPEED. 19 
SPEED. 20 
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SUBROUTINE TEST (IN , I TR.L ,LST2 ) TEST.? 

COMMON/ SCRAT / ALP S ( ?0 0 ) . CBET A ( ? 00 ) * Y ( 1 00 ) » JY ( 25 ) , JYT ( 25 > »DY ( 25 ) * T E 5 T . 3 

1 XX(25> tYPlHOO) *YD(100> *CF(200) .YOOUOO) *U< 100*3) *UTUOO>*V(lOO) *T£ST,4 

2 GAMI { 100 > »OAMF (100) .0(200) ,US < 100) *YY ( 100) »UR ( 1 00) ,UUR UOO) , TEST. 5 

3 UP (100) *W(l00«3> *8 (400) * BW <4 00 > ♦ YYOEL UOO) *GNUTU00.3) » DU (2 00) t TEST *6 

4 UT ABLE (100) » DUDY (100.3) *PS<100*3) *SP (100*3) .OUNCE f 200 ) » TEST, 7 

5 DXQ(2O»30>»PPC(2O*3O> .UUC<20*30) *U£DGE < 100) *WPUOO) ♦XPGOOO) * TEST.0 

6 UPGUOO) »WC(100) .BETA (100) ,R1'AB<50) *G(99) *GW(99) • A3 UOO) »A31<100)TEST.9 

7»A4(100), DUMMY < 46 2 > TEST. 10 

COMMON/ SZ4 / UTAU,UD*0ELS*THETA f H*0ELTA,CF2*XNX»GNU TEST. 11 

DIMENSION X (3) fUS (3) ,CF2<3) »p<3) TEST. 12 

COMMON/5Z 1 / JMX,LMX*NP*UTS, I TRMX , WT *KWAL , DX *U8 IN TEST. 13 

C0HM0N/SZ3/X.U8 TEST. 14 

COMMON/ PRESSUR / P TEST. 15 

COMMON/SZTBL/XSW.HSV ' TEST. 16 

C0MM0N/XM0N/TH2tCP3 TEST. 17 

common/xmpr/utest TEST. 18 

COMMON/ CUR V 1 / R<3) TEST. 19 

GO TO (90,1000* L TEST. 20 

90 CONTINUE TEST. 21 

UTE5T = A8S < U <NP , 3 ) -UP (NP > ) * 1 ,£*5/U8 (3 ) TEST. 22 

IP (UTEST-UTS« 20. >100*100* 300 TEST. 23 


100 CONTINUE 

IF (UTEST-UTS) 200,200,110 
UO LN = 2 , 

RETURN 
200 LN=1 
RETURN 

300 IFUTR-ITRMXI 310,400*400 
310 CONTINUE 
LN = 3 
RETURN 

380 CONTINUE 
400 CONTINUE 
LN = 4 
RETURN 

1000 CONTINUE 
LST2 = 2 
RETURN 
ENO 


lR ODUCIBILITY OF THE 

ginal page, is POO 


TEST. 24 
TEST. 25 
TEST. 26 
TEST. 27 
TEST. 28 
TEST. 29 
TEST. 30 
TEST. 31 
TEST. 32 
TEST. 33 
TEST. 34 
TEST. 35 
TEST. 36 
TEST. 37 
TEST. 38 
TEST. 39 
TEST, 40 
TEST. 41 


FUNCTION T8LU2 (X ,Y»XC*YC*ZC,KX,KY*NX,NY 9 MX *HY) 
DIMENSION XC(l),YCU >*ZC<HX,MY> 

01 MENS ION IX (5) • IY (5) *ARG<S) ,VAL<5> *YY(5) 

CALL I TSM <X ,XC, IX,KX»NX) 

CALL I TSM (Y.YC, IY,KY,NY> 

M-KXM 
N-K Y ♦ l 
FPS= 1 . E-5 
DO 2 1=1* M 
00 1 J = 1*N 
K = IXU) 

L = I Y ( J) 

ARG(J) = YC(L> 

1 VAL (J) = ZC(K,L) 

2 CALL ALI <Y,ARG,VAL*YY<I)*N?EPS,IER) 

DO 3 I=1,M 
J =* I X < I ) 

3 ARGU) = XC<J> 

CALL ALI (X«ARG,YY,A»M,EPS*IER) 

TBLU2=A 

RETURN 

END 


TBLU2.2 

T0LU2 . 3 

TBLU2.4 

T0LU2.5 

TBLU2.6 

T8LU2..7 

TBLU2.8 

TBLU2.9 

TBLU2.10 

TBLU2.il 

TBLU2.12 

TBLU2.13 

7BLU2.14 

TBLU2.15 

TBLU2.16 

T8LU2.17 

TBLU2.18 

TBLU2.19 

TBLU2.20 

TBLU2.21 

TBLU2.22 

TBLU2.23 
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nnooonr>r> 


FUNCTION THICK <Y,U*U8*JMX> 

ROUTINE TO CALCULATE THE BOUNDARY LAYER THICKNESS 

COMMON/ SCRAT / ALPS < 20 0 > ♦ C8E T A < 2 00 ) * D ( l 0 0 ) * JY < 25 ) * JYT < 25 ) *DY (25 ) ♦ 

1 XX (25) * YPL (100) ♦YD(IOO) *CF (200) ♦ YDD ( 1 0 0 ) * T (100*3) *UT ( 100) * V ( 1 00 ) * 

2 GAM I (100) tG.AMF ( 100) *H ( 200 ) *US ( 1 00 ) * YY (100) *UR ( 1 00) «UUR U 00 > * 

3 UP (100) ■ W ( 1 00 * 3 ) *B (4 00 > *BW (400 ) * YYDEL (1 00 > *GNUT (100*3) » DU (200) * 

A UT ABLE UOO > » DUDY (100*3>*PS(10Q*3>*SP (100*3) ♦ THETA (200) * 

5 DXD (20*30) *PPC (20*30) »UUC (20*30 ) *UEDGE ( 100 > *HP (100) »XPG(1 00 > « 

6 UPG(100)*'aC(10G)fBETA(100)*RTAB<50)*G(99)*GW(99)*A3(100)*A31(lOO) 

7 * A4 (100) * DUMMY (452 ) 

DIMENSION Y(U *U(100*3) *U8(1) 

COMMON/ SZ 1 / .|XX*LMX.NP*UTS*ITRMX*.WT*KWAL*DX*U8JN 
COMMON/ 5Z3 / X(3) 

COMMON/ SHAPE/ JSP*CNNS*UMX*UMIN*JMN*MCASE 

COMMON/ XSTART / XSTART 

COMMON/DEL GFO/DDELT 

COMMON/UVEL/UENO 

IF (X (3) .EQ. XSTART) JMAXM s JMX 

IF(X(3) .EQ. XSTART) JMAXM = JMX 

UF INAL = 0. 

K = -l 
CANS = *001 

JMM = JMX ♦ 1 ' 

JML = JMX - 5 

GO TO (6*5) KWAL 

5 CONTINUE 

DO 7 J= JML * JMM 
UEOGE(J) - U ( JMX * 3 > 

7 CONTINUE 

6 CONTINUE 

IF (XO)-XSTAPT) 93*93*81 
01 CONTINUE 

IF (MCASE.E0.2) GO TO 11 
JM2 = JMX ♦ 2 
DO 10 J=2»JM? 

IF (U(J*3) •GT.UEOGE(J)) U ( J * 3 ) = (JEDGE(J) 

10 CONTINUE 

11 CONTINUE 

DO 1 J=JHM*JML*K 
IF (U(J*3)*EQ*UE0GE(J) ) GO TO 1 
GO TO 2 

1 CONTINUE 

2 CONTINUE 
ULA5T = UFINAL 

UF INAL = ABS ( (UECGE (J)-U( J*3) )/UEDGE ( J) ) 

IF (UFINALoGE.CANS) GO TO 3 
J = J-l 
GO TO 2 

3 CONTINUE 

DELTA = Y ( J ♦ l ) - ( ( C ANS-ULA5T >*(Y(J*1>-Y(J)>) / (UF IN AL-UL AST ) 

JMX = J*1 

IF(X(3).LE. XSTART) GO TO 84 
DX = X(3)-X<2) 

ODELT = (DELT A-DELOLD) /DX 
DELNEW = DELTA + OOELT«DX 
OSTEP = Y < J > ♦ o90*(Y(J*l) - Y(J) ) 

IF(OELNEW.GT.DSTEP) JMX=JMX*1 
IF(DELTA.GT.OSTEP) JMX = JMX * I 
ODELT = *5« (ODELT *DDOLD) 

GO TO 84 

83 CONTINUE 

DELTA s Y ( JMX-2 ) 

JMX = JMX* 1 t 

84 CONTINUE 

IF(JMX«LT* JMAXM) JMX * JMAXM 
IF ( JMX.LT .JMAXM) JMX * JMAXM 
U8I3) = UEOGE(JMX) 

IF ( JMX-99 ) 99*98*99 
98 CONTINUE 


THICK. 2 
THICK. 3 
THICK. 4 
THICK. S 
THICK. 6 
THICK. 7 
THICK. 8 
THICK. 9 
THICK. 10 
ThICK.ll 
THICK. 12 
THICK. 13 
THICK. 14 
THICK. 15 
THICK. 16 
THICK. 17 
THICK. 10 
THICK. 19 
THICK. 20 
THICK.21 
THICK. 22 
THICK. 23 
THICK. 24 
THICK. 25 
THICK. 26 
THICK. 27 
THICK 9 28 
THICK. 29 
THICK. 30 
THICK. 31 
THICK. 32 
THICK. 33 
THICK. 34 
THICK. 35 
THICK. 36 
THICK. 37 
THICK. 38 
THICK.39 
THICK. 40 
THICK. 41 
THICK. 42 
THICK. 43 
TMICK.44 
THICK .45 
THICK. 46 
THICK.47 
THICK. 48 
THICK. 49 
THICK. 50 
THICK. 51 
THICK, 52 
THICK. 53 
THICK. 54 
THICK, 55 
THICK. 56 
THICK. 57 
THICK, 58 
THICK. 59 
THICK. 60 
THICK. 61 
THICK. 62 
THICK, 63 
THICK. 64 
THICK. 65 
THICK. 66 
THICK. 67 
THICK.68 
THICK. 69 
THICK, 70 
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ODOLO ^ OOELT 
DELOLO =: DELTA 
THICK s OELTA 
RETURN 

99 CALL PRINT (7) 
CALL PRINT (2 1 
CALL PR INT < 7 ) 
STOP 
END 


reproducibility of the 

ORIGINAL PAGE IS POOR 


THICK. 71 
THICK. 72 
THICK. 73 
THICK. 74 
THICK. 75 
THICK. 76 
THICK. 77 
THICK. 78 
THICK. 79 


SUBROUTINE VFL Y ( V ,U* I * X * Y) 

0 I MEN 5 I ON U < 1 00*3 ) * V(2>* X < 1 > * Y € 1 > 

COMMON/ SCRAT / ALF S ( 20 0 > * CBE T A ( 2 00 ) * D (I 00 ) ♦ JY < 25 ) * JVT ( 25 ) * OY ( 25 > 

1 XX (25) *YPL HOO > .YOU 00) *CF (200) *Y00 (100) *T UOO *3) *UT UOO) *Z (100) 

2 GAM I ( 100) *GaMF(JOO> » HD (200) *US ( 1 00 > * YY ( 1 00 > *UR ( 1 00 > * UUP ( 100 > * 

3 UP (100) *W(1 00.3) *6(400) ♦ BW (400 ) . YYOEL ( 1 00 > *GNUT ( 1 00 * 3 ) *OU (200 ) * 

4 UTABLE UOO) *DUOY (100*3 > * PS (1 00*3) *SP ( 1 00 * 3 ) ♦ OUNCE ( 20 0 ) ♦ 

5 0X0(20*30) *PPC(20*30) *UUC<20 *30) UEDGEUOO) *WP(100) *XPG(10Q) * 

6 UPG(IOO) fWC(lOO) *PETA(100) *RTAB(50)*G(99) *GW(99) ,A3(100)*A31(100 
7 ♦ A4 (100) *OUMMY (452 ) 

C0MM0N/S71/ JHX*LMX »NP*U7S* ITRMX*WT*Ktf AL*DX *U8 IN 
COMMON/ S24 / UTflU*U0*0ELS*THETA*H*DELTA*CF2»XMX*GNU 
COHMON/VPRF/W VPR 


60 


70 


100 


t 


CUR V l / R ( 3 ) 

= 6h VELY 
= 0* 

J=2 « JMX 

= (Y(J)-Y(J-1))/12. 

= DUX (U*I * J»X) 

= DuX (U * t * J-*l * X 1 
= ,S» (Y (J) *Y( J-l) ) 

= OELTAM.EUO 
IF ( (KVAL*EQ.2) .OR. <R U ) .GT.DELTAX) 
HIM = RU)/(R<I) ♦ YU)) 

( R ( I ) * YU-1) )/(R(I> ♦ Y ( J) ) 

70 

= 1 . 

1 . 

continue 

VU) = V(J-1)*H2M - 
CONTINUE 
RETURN 
END 


COMMON/ 

WVPR 

V(l) 

00 100 
OY 

OUDXl 

OUDX2 

YAV 

DEL T 4 X 


HHM = 
GO TO 
HIM 
H2M s 


) GO TO 60 


,5«H1M*0Y* (OUDXl ♦ 0U0X2) 


VELY. 2 
VELY. 3 
* VELY.4 
♦ VELY. 5 
VELY. 6 
VELY. 7 
VELY. 8 
VELY. 9 
) VELY .10 
VELY. 11 
VELY. 12 
VELY. 13 
VELY. 14 
VELY. 15 
VELY. 16 
VELY. 17 
VELY. 18 
VELY. 19 
VELY. 20 
VELY. 21 
VELY. 22 
VELY. 23 
VELY. 24 
VELY. 25 
VELY. 26 
VELY. 27 
VELY. 28 
VELY, 29 
VELY. 30 
VELY. 31 
VELY. 32 
VELY. 33 
VELY. 34 


FUNCTION U8FNT (X *U8 IN ) U8FNT.2 

COMMON /.X IN/ XINOOO>«Z1NUOO> 'CPIN(IOO) tSUUOO) U8FNT.3 

COMMON/UIN/UIN(100> U8FNT.4 

COMMON/PARAM/ MACH * ALPHA ♦ REF A *H AT IN * REFC » U INF U8FNT.5 

DIMENSION X Su ( 30 ) U8FNT.6 

COMMON /NPT/ NPT U8FNT.7 

00 10 I = 1 *NPT U8FNT.8 

XSU(I) = SU ( I ) *REFC U8FNT.9 

10 CONTINUE U8FNT.10 

U8 = TBLUl (X,XSU*UIN*1*NPT) U8FNT.il 

U8FNT = U8«U8IN v U8FNT.12 

RETURN ' U8FNT.13 

END U8FNT.14 
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SUBROUTINE V INPUT 

COMMON/ SCRAT / ALPS < 200 > *CBET A < 2 00 > * Y U 0 0 > » JY ( 25 ) * JYT ( 25 > *OY < 25 ) 

1 XX < 25 ) * YPL ( 10 0> » YD ( 1 00 ) ♦ CF ( 200 ) ♦ YDD ( 1 0 0 > *U ( 100*3) *UT (100) ♦ V < 1 00 ) 

2 GAM I { 1 00 > ♦GaMF ( 1 00 ) *H (200) *US ( 1 00 ) ♦ YY (1 00 ) *UR (1 00 ) *UUR ( 1 00 > ♦ 

3 UP(100>»WU00*3>*B(400)*8W(400) .YYDEL(lOO) »GNUT ( 1 00*3) *0U (200) * 

4 U7ABLF (100) .DUDY (100*3)* PS (100*3)* 5P (100*3) t THETA (200) ♦ 

5 0X0(20*30) *oPC( 20*30 ) *UUC(20* 30) tUEOGE (100 > *WP( 100) *XPG( 100) * 

6 UPG U00)*WC(lO0)«8ETA(100>*RTAB(50)*G(99)*GW(99)*A3(10O)*A31U00 
7*A4 (100) *0 UMmY<452> 

COMMON /NPT/ NPT 

COMMON/ GEO / CF 1 *H I *RTN*UN*UT AU*RD»DELS»THETA t * Z *C *KF ♦ I TER*KL * 

1 KYG*KX » JOB 

COMMON /XIN/ XIN(IOO) tZINUOO) *CP IN ( 1 00 > * SU ( 1 00 ) 

DIMENSION X (?) *UP (3) *P<3> 

C0MM0N/W8/W8 (3) 

COMMQN/SZ 1 / JMX*LMX*NP*UTS* ITRMX • WT *KWAL «DX *U8IN 
COMMON/SZ 3/X *U8 
COMMON/ CURV1 / R(3) * 

COMHON/PLUB/NCPX*NCPY*KCP*YDELP 
COMMON/ PRESSUR / P 
COMMON/ S ANGLE /S ANGLE 
COMMON/XTB/XTB(30) 

GO TO (10*20) KCP 
10 CONTINUE 1 
XPZ = X ( 3 ) 

CALL PFIELO (t *XPZ*P*Y*XTB> 

USURF = U8<3> 

GO TO 30 
20 CONTINUE 

USURF = U8FNT (X (3 > *08IN) 

U8 ( 3 ) = USURF 
GO TO (21 *22) *KWAL 
. 21 CONTINUE 

R ( 3 ) = TBLU1 (X (3) »XPG*RTAB*1 *NPT) 

R ( 2 1 = TBLU1 (X (2) * XPGtRTAB* 1 *NPT) 

U8 ( 3 ) - USURF/<1.*Y{JMX)/R<3> ) 

22 CONTINUE 

JP2 = JMX ♦ 3 
JL6 = JMX - 6 
00 83 J s 1*JP2 
GO TO (84»85)*KWAL 
84 UEOGE(J) = USURF/<n*Y(J>/R<3) > 


85 

83 


30 


GO TO 83 
UEDGE(J) = Ufl ( 3 ) 
CONTINUE 
U ( JMX ♦ I » 3 ) 

U ( JMX *2 » 3 ) 
CONTINUE 
I = 3 

U(1*I) -• 0. 

wu*n = o. 

SINAZ = 

W8 ( 3 ) =» 

W8 < 1 ) = 

Wfl(2> = 

USTR = 

USTR = 

INPUT THE 
DO 310 
U( J* I ) 

W(J*I) 

CONTINUE 
J - JMX * l 
DO 315 JJ=J*!00 
U(JJ*I> = U(J-1*I 
W(JJ*I> = W(J-1*I 
CONTINUE 
DO 400 J-I * 1 00 
U ( J *2 ) » U ( J* 3) 


UEOCE ( JMX ♦ 1 ) 
UEDCE (JMX *2) 


SIN ( S ANGLE 0 0 • 01 745329252) 
U8IN*SINAZ 


310 


3 1 S 


W8 ( 3 ) 

W8<3> 

SORT <U8(3)»*2 
SQRT <USURF**2 
INITIAL CHORD 
J=2»JMX 

= USTR«U(J.I> 
= USTR»W(J»I> 


♦ wa<3)««?> 

♦ W8<3)»*2> 
AND SPAN WISE 


VELOCITY PROFILES 


V INPUT .2 
♦VINPUT. 3 
* V I NPUT « 4 

V INPUT .5 
V I NPUT • 6 

V INPUT .7 

V INPUT .8 
) V INPUT .9 

V I NPUT .10 
V1NPUT*11 ‘ 

V INPUT .12 

V INPUT .13 

V INPUT • 1 4 

V INPUT .15 
V I NPUT ,16 

V INPUT * 1 7 

V INPUT *18 

V INPUT. 19 

V INPUT ,20 

V INPUT ,21 
VINPUT.22 

V INPUT * 23 

V INPUT ,24 

V INPUT * 25 

V INPUT . 26 

V INPUT .27 

V INPUT .28 

V INPUT. 29 

V INPUT .30 

V I NPUT .31 

V INPUT .32 

V INPUT .33 

V INPUT .34 

V INPUT * 35 

V INPUT .36 

V INPUT .37 
VINPUT .38 

V INPUT .39 
VINPUT. 40 
VINPUT. 41 
VINPUT. 42 
VINPUT. 43 
VINPUT. 44„ 
VINPUT. 45 
VINPUT. 46 
VINPUT. 47 
VINPUT. 48 
VINPUT. 49 
VINPUT. 50 
VINPUT. 51 
VINPUT. 52 
VINPUT. 53 
VINPUT. 54- 

V INPUT .55 
VINPUT. 56 
VINPUT. 57 
VINPUT. 58 
VINPUT. 59 
VINPUT. 60 
VINPUT. 61 

V INPUT .62 
VINPUT. 63 
VINPUT. 64 
VINPUT. 65 
VINPUT. 66 
VINPUT. 67 

' VINPUT. 68 
VINPUT. 69 
VINPUT. 70 
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W( J»2> - 
400 CONTINUE 
RETURN 
ENO 


V INPUT .71 
VINPUT.72 

V INPUT .73 
VINPUT.72 


SUB ROUT INE WEL(V*X*LST2*XSTART * Y *U*GNUT *GSU*P ,DUOY *VINT,JHX*U8) 
C ROUTINE TO CALCULATE V PROFILE. ... 

DIMENSION V < l ) *XU)*YU>*UU00,3> »GNUT < 1 00 *3) *P < 1 > *DUDY ( 1 00 ,3) 
DIMENSION U0(1) 

COMMON/MARY/OXS 


KVT - 1 

vm = o. 

VINT = .003 
VINT = .0002 

C GO TO (5066*68)* LST2 

5066 CONTINUE 

IF (X <3)-(X$TART*4.*0XS> ) 
67 CONTINUE 
V<1)=0. 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS, POOR 

67*67*60 


vuMx)=.oi25&uan> 

SLOPE = (V(JMX)-V(l) >/mJMX)-Y<l)> 
IF(P(3).LE.0.) KVT = 2 
IF(KVT.LE.l) SLOPE = -SLOPE 
00 1700 J=1*JMX 
V ( J ) = SLOPE*Y(U^ 

1700 CONTINUE 
GO TO 69 

68 CALL VELY (V«U*3*X*Y) 


69 CONTINUE 
RETURN 
END 


VVEL.2 
VVEL.3 
VVEL. 4 
WEL.5 
VVEL *6 
VVEL.7 
WEL.8 
VVEL.9 
VVEL.10 
VVEL.11 
VVEL.12 
VVEL. 13 
VVEL # 14 
VVEL. IS 
VVEL.16 
VVEL.17 
WEL.18 
VVEL. 19 
VVEL.20 
WEL.21 
VVEL .22 
VVEL. 23 
VVEL .24 
VVEL. 25 
VVEL. 26 
VVEL. 27 


SUBROUTINE YPRESS 

COMMON/ SCRAT / ALFS(?00) »CBETA( 

1 XX <25> *YPL UOO) .YOU 00) *CF (200) 

2 GAM I ( 1 00) *GAMF 1100 > «H (200 ) *US M 

3 UP UOO) *W( 100*3) .B(AOO) *BW (400) 

4 UTABLE ( 1 00 ) » DUD Y (100*31* PS (100* 

5 0X0(20*30) *DPC (20.30) *UUC (20*30 

6 UPG (100) »yC{100) »BETA<100)*RTAB 
7.A4 ( 100) * DUMMY (452) 

COMMON/ SZ1/ JMX *LMX *NP »UTS ♦ ITRMX 

COMMON /XIN/ XINUOO) tZINUOO) 

COMMON/CURPT/KOO 

COMMON/ PRESSUR / P 

COMMON/SZ3/X.U8 

COMMON/ CURV1 / R(3> 

COMMON/DELGFO/ODELT 

COMMON/STAT/PHREF .UREF 

COMMON/PLUe/NCPX*NCPY*KCP*YDELP 

COMHON/STP/KSTP 

COMMON/XTB/XTB(30) 

DIMENSION X ( 3 ) *U8 ( 3) *P 1 3) 

JMX l = JMX-1 

PKKP = 8./3. 

KDD = 1 
I - 3 

U5URF = U8FNT(X(3> *U8IN) 

SP JMX = 1.- (USUPF/UREF)«*2 

ps(jmx*i) = -pci) 

SPiJMx.n = sp jmx 
GO TO ( 1 0 ♦ 20 ) KWAL 
20 CONTINUE 

DO ICO J= 1 * JMX 1 
PS(J*1) = -PCI) 

SP(J*I) = SPJMX 
100 CONTINUE 
GO TO 910 
10 CONTINUE 


YPRESS. 2 

200) *Y (100) *JY (25) *JYT (25) *0Y(25) * YPRESS. 3 
.YDOU 00) *U ( 100*3) *UT UOO) *V (100) * YPRESS. 4 
O0)*YY(100)*UR(iOO) ♦ UUR UOO)* YPRESS. 5 

.YYOEL UOO) tGNijT (100*3)* DU (200>» YPRESS. 6 

3) *SPU00*3) ♦ THETA (200) * YPRESS. 7 

) tUEDGE ( 1 00 ) *WP U 00) *XPG(100> * YPRESS. 8 

(50)*G(99) *GW<99> ♦ A3 (l 00) * A31 ( 100) YPRESS. 9 

YPRESS. 10 

,#T*KWAL*0X*U8IN YPRESS. 11 

*CPIN(100) *SUUOO) YPRESS* 12 

YPRESS. 13 
YPRESS. 14 
YPRESS. 15 
YPRESS. 16 
YPRESS. 17 
YPRESS. 18 
YPRESS, 19 
YPRESS. 20 
YPRESS. 21 
YPRESS. 22 
YPRESS. 23 
YPRESS. 24 
YPRESS. 25 
YPRESS, 26 
YPRESS. 27 
YPRESS. 28 
YPRESS, 29 
YPRESS. 30 
YPRESS, 31 
YPRESS. 32 
YPRESS. 33 
YPRESS. 34 
YPRESS. 35 
YPRESS. 36 
YPRESS. 37 
YPRESS. 38 
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REPRODUCIBILITY OF THE 


o xx - <x<n-xu-n>/i2. 

OO 901 I - 2*3 

usurp usfnt ( x<i) »uaiN) ORIGINAL PAGE IS POOR 

SPJHX = 1.- (USURF /UREF ) **2 

spn*n - spjmx 

PHIJNX = SPJMX*.5*UREF«*2 * PHREF 
00 900 Js2 ♦ JMX 1 
GO TO (50*60)9 KOD 
50 Jl s J 

J2 = Jl-1 

GO TO 70 

60 Jl - JMX1 - (J-D 

J2 = Jl ♦ 1 

70 CONTINUE 

IF ( I »LE « 2) GO TO 71 

UINT = .5* (UP ( Jl ) **2 ♦ UP(J2>«*2) 

GO TO 72 

71 CONTINUE 

UINT = ,5®<U(J1*T) c *2 ♦ U(J2*I)»*2> 

72 CONTINUE 

RINT = 1 , / < R ( I ) ♦ .5* (Y ( Jl ) ♦ Y( J2) > ) 

XINT = ( Y < J 1 ) - Y ( J2 ) ) *UINT*R INI 
SA - SA ' XlNT 
PHI = PHI JMX ♦ SA 

SP(J1*I> = (PHI - PHREF >/U5*UREF»*2> 

900 CONTINUE 

901 CONTINUE 

GO TO ( 1 *2 ) *KCP 
2 CONTINUE 

00 902 J = l * JMX 1 

PS ( J* 3) >MSP<J«3) - SP(J*2»)/0XX>«.S*UREF«*2 

902 CONTINUE 
GO TO 910 

I continue 
kstp = 1 
L - 2 
XPZ = X(3> 

CALL PFIELD<L*XPZ*P.Y*XTB> 

KSTP = 2 
910 CONTINUE 
RETURN 
END 


YPRESS.39 
YPRESS .40 
YPRESS. 41 
YPRESS. 42 
YPRESS. 43 
YPRESS. 44 

YPRESS. 45 
YPRESS. 46 
YPRESS. 47 
YPRESS.48 
YPRESS.39 
YPRESS.50 
YPRESS.51 
YPRESS.52 
YPRESS.53 
YPRESS. 54 
YPRESS.55 
YPRESS.56 
YPRESS.57 
YPRESS.58 
YPRESS.59 
YPRESS. 60 
YPRESS. 61 
YPRESS .62 
YPRESS ,63 
YPRESS. 64 
YPRESS. 65 
YPRESS. 66 
YPRESS. 67 
YPRESS. 68 
YPRESS. 69 
YPRESS. 70 
YPRESS. 71 
YPRESS. 72 
YPRESS. 73 
YPRESS. 74 
YPRESS. 75 
YPRESS. 76 
YPRESS. 77 
YPRESS. 78 
YPRESS. 79 
YPRESS . 80 
YPRESS. 81 


OVERLAY (FRI5*4.0) 

PROGRAM FELOPT 

COMMON /PARAM/ MACH* ALPHA 9REFA*MAT IN 
COMMON /ITR/ ITR.ITRMAX 
COMMON / JM AX / JM*X 
COMMON/NPT /NPT 

COMMON /VELCOM/ NP ANEl *NP ART * IMAX *EX . PR INI 

COMMON /SCR AT/ S IN BO (60 0 ) .C0S8D (600 ) *T ANBO (600) *UL(600) * WL (600 ) * 
1UC(600) »WC(600)9flC(600> *DUM (1200) »XPT (600) *ZPT (600)t 
2UC J ( 2 ) » WC J ( 2 ) *UL J (2 ) * WL J (2) *0UMMY(I592) 

COMMON/GAMM/riA(600) *0 
COMMON/ POINT/ ARRAY (4950) 

COMMON /SEG/ NCMPT»NFLAP9NFLP*NC(4) *TE(4) 9CTU(4)fGTL(4) » 

1NPU (4 > »NPL (4) ♦ ISTG(4) ,UCU(4> ,UCL (4 ) , WCU (4 ) ,WCL(4> * 

2XTE<4>»ZTE<4> *0ELZ(3) *NG(3> .NPG(4> 9 THKTE (4) 

COMMON /GRID/ 7CP ( 20 ) *CP I (20 930) » ZGAP 

COMMON /XIN/ XIN( 100) *ZIN(100) 9CPIN(100) 9 SUUOO) 

DIMENSION OELTA(fiOO) .THET(600) *CHORD(600) «XP <600)*ZP (600)* 

1XU(30*4) .ZU (30 *4) »XL (30*4 ) »ZL (30*4) *XCOR (600) .Z COR (600) * - 

2XGRID(30*3) *ZGR ID (30*3) *OZDX{ 30*3) *Q (600) 

EQUIVALENCE ( ARRAY*DELTA) * (ARRAY (601 ) *THET ) » (ARRAY ( 1201 > 9CH0R0) * 

1 (ARRAY (1801 ) .XP ) * < ARRA Y ( 240 l ) * ZP >* ■ 

2 < ARRAY (3001 ) .XU) * (ARRAY <3121 > »XL) ♦ 

3 (ARRAY (3241) «ZU)* ( ARRAY < 3361 >* ZL > * 


FELOPT. 3 
FELOPT. 4 
FELOPT. 5 
FELOPT. 6 
FELOPT. 7 
FELDPT.8 
FELOPT .9 
FELOPT. 10 
FELOPT. 1 1 
FELOPT. 12 
FELOPT. 13 
FELOPT. 14 
FELOPT. IS 
FELOPT. 16 
FELOPT, 17 
FELOPT. 18 
FELOPT. 19 
FELOPT. 20 
FELOPT. 21 
FELOPT. 22 
FELOPT. 23 
FELOPT. 24 
FELOPT. 25 
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4(ARRAY(3481JfXGRID>»< ARRAY (3571 )tZGRIO>*( ARRAY! 3661 > »DZDX ) * 
5 (ARRAY <3751 > tXCOR) * (ARRAY (.4351) vZCO«> , 

REAL MACH 
EPS=1 .OE-6 
PI-3.14159265 
REFA= 1 .0 
KTE = 0 

DO 1 N - 1 . NCmPT 
IF(THKTE(N> .GT.O.) KTE * 1 
1 CONTINUE 
NCPZ=2Q 
REWIND 3 

nf=nflap-nflp*i 

NGRID=NG(NF) 

NPP = ncmpt-nflap*nf 

N p = NPT-NPU(NPP)*NPG(NPP)-1 
call SECONO(TIME) 

WR ITE <6 i 602 ) TIME 
REWIND 7 
R E AO ( 7 ) ARRAY 
REWIND 7 
5 CONTINUE 

IF(ITRoGT.I) GO 70 0 
00 7 J=l,JMAX 

Q ( J) =0. , 

7 CONTINUE 

8 CONTINUE 
ALP“ALPHA/57 ,2957795 
COSAL=COS (ALP) 

S INAL-SIN < ALP) 

BT2 = 1 „-HACH*MACH 
RB2=1 .0/BT2 
BETA=SQRT (AT?) 

CON = l • / (2 * °PI ) 

8CON=BETA»C0n 
XSTART=XGRID( 1 *NF ) 

ZST ART = ZGR 10 { 1 *NF ) 

DXG=XT£ (NF)-XSTART 
DZG=ZTE (NF)-ZSTART 
ZGAP = DZG 
DO 10 M=lfNCRZ 

10 ZCP(M) = DEL7(NF)*FL0AT<M-1) 

00 50 N=1 »NP ANEL 
BD=8ETA*TAN (DELTA (N) ) 

T AN8D (N ) =80 

COSBD (N) =1 ./SORT ( 1 . *00*80) 

50 SIN8D <N>=80*C0SaD (N) 

1=0 

DO 300 1NM.NGRT0 

1 = 1*1 

XPT(1)=XGRID(IN»NF> 

ZPT (1 )=ZGRIO(IN»NF) 

CPI (It IN)=CP|NUN*NP) 

UPT=0. 

OZX=DZDX ( INfNF) 

C0SD=1 .0/50RT (1 .0*DZX«DZX) 

SINO=COSD*DZX 
DO 300 1 M = 2 «NCPZ 
1 = 1*1 

ZPT (I)=ZGRI0(IN,NF) *ZCP <IM)*COSD 
XPT ( I )=XGRIDf INfKF)-ZCP <IM)»SIND 
IFUTR.GT.l.AND.KTE.EO.O) GO TO 292 
IF (ITR.GT.2) GO TO 292 
X I =XPT O ) 

ZI=ZPT (I) 

J=0 
K = 0 
JL = 0 
JT = 0 


FELOPT .26 
FELOPT.27 
FEL0PT.28 
FELDPT.29 
FELDPT.30 
FELDPT .31 
FELOPT. 32 
FELDPT. 33 
FELOPT. 34 
FELDPT. 35 
FELOPT. 36 
FELOPT. 37 
FELOPT. 39 
FELOPT. 39 
FELOPT. 40 
FELDPT .41 
FELDPT. 42 
FELDPT. 43 
FELOPT. 44 
FELDPT .45 
FELOPT. 46 
FELDPT. 47 
FELOPT. 48 
FELOPT. 49 
FELOPT. 50 
FELOPT. 51 
FELOPT .52 
FELOPT. 53 
FELOPT. 54 
FELDPT. 55 
FELOPT. 56 
FELDPT .57 
FELDPT. 50 
FELDPT. 59 
FELDPT. 60 
FELDPT. 61 
FELDPT. 62 
FELDPT. 63 
FELOPT. 64 
FELOPT. 6S 
FELDPT. 66 
FELOPT. 67 
FELOPT. 60 
FELOPT. 69" " 
FELDPT. 70 
FELDPT. 71 • 

FELOPT. 72 
FELDPT • 73 
FELDPT. 74 
FELDPT. 75 
FELDPT. 76 
FELDPT. 77 
FELDPT. 78 
FELOPT. 79 
FELDPT. 80 
FELDPT. 81 
FELOPT. 82 
FELOPT. 83 
FELDPT. 84 
FELOPT .85 
FELDPT .86 
Ff.LOPT.87 
FELDPT. 88 
FELDPT .89 
FELDPT. 90 
FELOPT. 91 
FELOPT. 92 
FELOPT. 93 
FELDPT. 94 
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DO 215 N=I.NCMPT 

jt =jt «nc <n>-2 REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 

DO 250 NSI0E=1,2 

IF INSIDE. EG. 1) NL =NPU (N > ~ 1 

IF INS IDE.EQ •?) NI=NPL<N>-1 

NL I =NL ♦ 1 

DO 225 L=ltNL 

J=JM 

K =K ♦ 1 

IF(I.GT.l) GO TO 58 
IF <NS IDE.EQ.2) GO TO 55 
XC = XU(L M ♦N)-XU(LtN) 

ZC=ZU<L*1*N>-ZU<L*N> 

GO TO 56 

35 XC=XL<L*1*N)-XL(L*N) 

ZC-ZLaM*N>-ZL(L»N) 

56 CHORD (K)sSQRT <XC«XC*8T2°ZC*ZC) 

58 00 100 M=N2 

IF (NSIOE.EO.2) GO TO 60 
DX=XI-XU<L1*N) 

OZ=<ZI-ZU<LltN> > fl BETA 
GO TO 80 

60 DX=XI-XL (LI *N> 

DZ=<ZI-ZL<L1 >«BETA 
80 XPM=DX«COSeD(K) ♦CZ*5TN0D{K) 

ZPM=0Z°C05BD (K)~CX«SINBD <K) 

IF ( ARSIXPM) .LE.F-PS) XPM = 0. 

IF (ABSIZPM) .l.E.EPS) ZPM=0„ 

HPH2=XPM*XPM*ZPM fl ZPM 

RPH=0. 

IF {RPM2.GT.0. > RPM=SQRT IRPM2) 

G = 0 * 

IF IRPN.GT.O.) G=AL0G(RPH) 

F=Pl/2. 

IF (XPM.EO.O..ANO.ZPM.EO.O. ) GO TO 90 
p=ATAN2 (ZPM *XPM) 

90 CONTINUE 

IF <N5IOE.EQ.?.AND.ZPH.EQ.0.> F=-F 

UCJ <M)=-F 

WCJ<H)=-G 

ULJ (N)=-(XPM*F*ZPM«G) /CHORD (K) 

WLJ<H>= <ZPM*F*XPH« ( 1 .-G) )/^CHORD(K> 

100 CONTINUE 

UCPM = UCJ<l>-tjLJ<lMULJ<2> 

WCPM=WCJ<1 )-wLJ(l )*WLJ<2> 

UIPM=ULJ(1 ) -ULJ<2>-UCJ(2) 

WLPN=WLJ(1 )-^LJ(2)-WCJ(2) 

USPM^WCJtZl-'VCJJ 1 > 

\*SPH = UCJ(1 > ~*JCJ (2 ) 

UC(.i) = IUCPW«COSBC <K)-WCPM*SINBDOO >*CON 
WC(J) = (WCPM°COSBO(K) *tJCPH°SIN80(K) )»8C0N 
UL <J) = <ULPM*COSRC {K)-WLPH*SINB0(K1 ) °CON 
HL ( J) = (WLPM»COSBC (K) ♦ULPM*5INBD(K> )°BCON 
USJ- ( US PM* COS 80 (K>-WSPH°SIN0O<K> >*BCON 
WSJ=(WSPM*C05BD(K) ♦USPM tt SIN8D(K) >*CON 
UCJT=UCJT*USJ 

WCJT=WCJT*HSJ 1 

IF(NSIDE.EG.?.AN0.L.EQ.1 > GO TO 160 
IF(L.GT.l) UC ( J) =UC < J) ♦UL < J-l > 

I F (L *GT • 1 ) WC<J>=WC(JMWL<J-1> 

GO TO 200 

160 UC(JL)=UC<JLMUC<J> 

WC< JL)=WCIJU ♦WC(J) 

UL<J-n-UL<J) 

WL < J-l ) =WL < J) 
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J=J-1 
GO TO 225 
200 CONTINUE 

IF <L »LT *NL ) GO TO 225 
IF (NSIDE.EQ .2) GO TO 220 
UCU<N)=UL<J> 

WCU(N)=WL<J> 

GO TO 225 
220 UCL<N)-UL<J) 

WCL (N)=WL <J> 

225 CONTINUE 
250 CONTINUE 
J = J*1 

UC ( JT ) =UCJT 
WC { JT > =WCJT 

IF (THKTE(N) .FQ*O..OR»ITR.GT.n GO to 275 
UC < JT>=0. 

WC<JT)=0. 

275 CONTINUE 
J = 0 
K = 0 

00 290 N=1#NCMPT 
J2=NC(N) 

J 1 = J2- 1 
jT=J2-2 

DO 290 JJ=1 » J2 
J-JM 

IF(JJ.GT.JT) GO TO 205 
K =K ♦ 1 

<JL( J)=UC(K) 

WL< J)=WC(K> 

GO TO 290 

285 IF <JJ«EO.J2> GO TO 206 
UL<J)=UCU<N) 

WL < J > =WCU < N ) 

GO TO 290 

286 UL(J>=UCL<N) 

WL < J) =WCL(N) 

290 CONTINUE 

a R I T £ ( 3 > <UL(J> *WL<J> *J=1 »JMAX> 

GO TO 294 
292 CONTINUE 

RE AO < 3) (UL ( J) «WL < J) * J-l » JMAX) 

294 CONTINUE 
UPT=0. 

*PT=0. 

DO 295 J= 1 ♦ UMAX 

UP T =UPT *UL (J)«GA<J)-WL<J)*0<J)»RB2 

295 W P T =WPT ♦ WL ( J ) *6 A ( J) *UL ( J) *0 ( J) 
upt=upt*cosal 

WPT = WPT ♦ S INAL 

CPI ( lM»IN>sl.O-UPT«UPT-WPT«V)PT 
300 CONTINUE 

CALL SECOND (T JME > 

WR I T£ { 6 »602 ) TIME 
RETURN 

500 FORMAT < 1 1 IS) 

501 FORMAT < 7F 1 0 .0 ) 

601 FORMAT < 1H «loF10.5) 

602 FORMAT ( 1H * 6HT IMF s*F10«5) 

660 FORMAT I7I5»9F10.5) 

END 
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